changeset 110319:f52a8c72912b

Revert revno 101418 by Bob Chassel.

--- a/configure	Mon Sep 13 19:44:07 2010 +0900
+++ b/configure	Mon Sep 13 16:42:33 2010 +0200
@@ -1,11 +1,11 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.67 for emacs 24.0.50.
+# Generated by GNU Autoconf 2.65 for emacs 24.0.50.
 #
 #
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software
-# Foundation, Inc.
+# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 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 STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
+# as_fn_error 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=$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_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_fn_exit $as_status
 } # as_fn_error
 
@@ -530,7 +530,7 @@
 exec 6>&1
 
 # Name of the host.
-# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
+# hostname on some systems (SVR3.2, Linux) returns a bogus exit status,
 # so uname gets run too.
 ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
 
@@ -910,9 +910,8 @@
   fi
 
   case $ac_option in
-  *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
-  *=)   ac_optarg= ;;
-  *)    ac_optarg=yes ;;
+  *=*)	ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
+  *)	ac_optarg=yes ;;
   esac
 
   # Accept the important Cygnus configure options, so we can diagnose typos.
@@ -957,7 +956,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
@@ -983,7 +982,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
@@ -1187,7 +1186,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
@@ -1203,7 +1202,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
@@ -1233,8 +1232,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."
     ;;
 
   *=*)
@@ -1242,7 +1241,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 ;;
@@ -1260,13 +1259,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
@@ -1289,7 +1288,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'
@@ -1303,8 +1302,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
@@ -1319,9 +1318,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.
@@ -1360,11 +1359,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
@@ -1404,7 +1403,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
@@ -1622,9 +1621,9 @@
 if $ac_init_version; then
   cat <<\_ACEOF
 emacs configure 24.0.50
-generated by GNU Autoconf 2.67
-
-Copyright (C) 2010 Free Software Foundation, Inc.
+generated by GNU Autoconf 2.65
+
+Copyright (C) 2009 Free Software Foundation, Inc.
 This configure script is free software; the Free Software Foundation
 gives unlimited permission to copy, distribute and modify it.
 _ACEOF
@@ -1740,7 +1739,7 @@
     mv -f conftest.er1 conftest.err
   fi
   $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; } > conftest.i && {
+  test $ac_status = 0; } >/dev/null && {
 	 test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
 	 test ! -s conftest.err
        }; then :
@@ -1764,10 +1763,10 @@
 ac_fn_c_check_header_mongrel ()
 {
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  if eval "test \"\${$3+set}\"" = set; then :
+  if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 fi
 eval ac_res=\$$3
@@ -1803,7 +1802,7 @@
 else
   ac_header_preproc=no
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5
 $as_echo "$ac_header_preproc" >&6; }
 
@@ -1830,7 +1829,7 @@
 esac
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if eval "test \"\${$3+set}\"" = set; then :
+if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=\$ac_header_compiler"
@@ -1894,7 +1893,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 eval "test \"\${$3+set}\"" = set; then :
+if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -1916,18 +1915,15 @@
 
 } # ac_fn_c_check_header_compile
 
-# 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 LINENO SYMBOL VAR
+# ------------------------------------
+# Tests whether SYMBOL is declared, 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_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 "$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_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -1936,12 +1932,8 @@
 int
 main ()
 {
-#ifndef $as_decl_name
-#ifdef __cplusplus
-  (void) $as_decl_use;
-#else
-  (void) $as_decl_name;
-#endif
+#ifndef $2
+  (void) $2;
 #endif
 
   ;
@@ -1970,7 +1962,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 eval "test \"\${$3+set}\"" = set; then :
+if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -1982,7 +1974,7 @@
 else
   eval "$3=no"
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
@@ -2000,7 +1992,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 eval "test \"\${$4+set}\"" = set; then :
+if { as_var=$4; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -2056,7 +2048,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 eval "test \"\${$3+set}\"" = set; then :
+if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -2124,7 +2116,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 eval "test \"\${$3+set}\"" = set; then :
+if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=no"
@@ -2173,7 +2165,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.67.  Invocation command line was
+generated by GNU Autoconf 2.65.  Invocation command line was
 
   $ $0 $@
 
@@ -2283,9 +2275,11 @@
   {
     echo
 
-    $as_echo "## ---------------- ##
+    cat <<\_ASBOX
+## ---------------- ##
 ## Cache variables. ##
-## ---------------- ##"
+## ---------------- ##
+_ASBOX
     echo
     # The following way of writing the cache mishandles newlines in values,
 (
@@ -2319,9 +2313,11 @@
 )
     echo
 
-    $as_echo "## ----------------- ##
+    cat <<\_ASBOX
+## ----------------- ##
 ## Output variables. ##
-## ----------------- ##"
+## ----------------- ##
+_ASBOX
     echo
     for ac_var in $ac_subst_vars
     do
@@ -2334,9 +2330,11 @@
     echo
 
     if test -n "$ac_subst_files"; then
-      $as_echo "## ------------------- ##
+      cat <<\_ASBOX
+## ------------------- ##
 ## File substitutions. ##
-## ------------------- ##"
+## ------------------- ##
+_ASBOX
       echo
       for ac_var in $ac_subst_files
       do
@@ -2350,9 +2348,11 @@
     fi
 
     if test -s confdefs.h; then
-      $as_echo "## ----------- ##
+      cat <<\_ASBOX
+## ----------- ##
 ## confdefs.h. ##
-## ----------- ##"
+## ----------- ##
+_ASBOX
       echo
       cat confdefs.h
       echo
@@ -2407,12 +2407,7 @@
 ac_site_file1=NONE
 ac_site_file2=NONE
 if test -n "$CONFIG_SITE"; then
-  # 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
+  ac_site_file1=$CONFIG_SITE
 elif test "x$prefix" != xNONE; then
   ac_site_file1=$prefix/share/config.site
   ac_site_file2=$prefix/etc/config.site
@@ -2427,11 +2422,7 @@
     { $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" \
-      || { { $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 ; }
+    . "$ac_site_file"
   fi
 done
 
@@ -2512,7 +2503,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. ##
@@ -2686,7 +2677,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
 	    ;;
@@ -2981,7 +2972,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"
@@ -3099,22 +3090,16 @@
 
 ac_aux_dir=
 for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do
-  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
+  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
 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,
@@ -3128,7 +3113,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; }
@@ -3139,16 +3124,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='-'
@@ -3173,7 +3158,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
@@ -3181,7 +3166,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='-'
@@ -3475,7 +3460,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
 
@@ -3789,8 +3774,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
@@ -3904,8 +3889,9 @@
 
 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "C compiler cannot create executables
-See \`config.log' for more details" "$LINENO" 5 ; }
+{ as_fn_set_status 77
+as_fn_error "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; }
@@ -3947,8 +3933,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
@@ -4005,9 +3991,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
@@ -4058,8 +4044,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
@@ -4391,7 +4377,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -4407,11 +4393,11 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 if $ac_preproc_ok; then :
   break
 fi
@@ -4450,7 +4436,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -4466,18 +4452,18 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
+rm -f 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
@@ -4538,7 +4524,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
@@ -4604,7 +4590,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
@@ -4736,7 +4722,8 @@
   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
 "
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+eval as_val=\$$as_ac_Header
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -4980,7 +4967,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -4996,11 +4983,11 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 if $ac_preproc_ok; then :
   break
 fi
@@ -5039,7 +5026,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -5055,18 +5042,18 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
+rm -f 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
@@ -5503,7 +5490,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
@@ -5657,7 +5644,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
@@ -5935,7 +5922,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
 
@@ -5990,7 +5977,8 @@
 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"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+eval as_val=\$$as_ac_Header
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -6181,7 +6169,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
@@ -6216,7 +6204,8 @@
 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"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+eval as_val=\$$as_ac_Header
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -7271,8 +7260,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
 
 
@@ -7280,7 +7269,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 eval "test \"\${ac_cv_prog_make_${ac_make}_set+set}\"" = set; then :
+if { as_var=ac_cv_prog_make_${ac_make}_set; eval "test \"\${$as_var+set}\" = set"; }; then :
   $as_echo_n "(cached) " >&6
 else
   cat >conftest.make <<\_ACEOF
@@ -7288,7 +7277,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;;
@@ -7424,7 +7413,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
@@ -7442,7 +7431,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
@@ -7528,7 +7517,7 @@
   fi
 done
 fi
-rm -f conftest.err conftest.i conftest.$ac_ext
+rm -f conftest.err conftest.$ac_ext
 fi # $ac_x_includes = no
 
 if test "$ac_x_libraries" = no; then
@@ -7711,7 +7700,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
 
@@ -7827,7 +7816,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.
@@ -7950,7 +7939,8 @@
   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
 "
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+eval as_val=\$$as_ac_Header
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -8457,7 +8447,8 @@
 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"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
+eval as_val=\$$as_ac_var
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -8857,7 +8848,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
 
@@ -8963,7 +8954,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
@@ -8990,7 +8981,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
@@ -9120,7 +9111,8 @@
 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"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
+eval as_val=\$$as_ac_var
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -9485,7 +9477,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; }
@@ -10662,7 +10654,8 @@
 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"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+eval as_val=\$$as_ac_Header
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -10914,7 +10907,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
@@ -11355,7 +11348,8 @@
   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"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
+eval as_val=\$$as_ac_var
+   if test "x$as_val" = x""yes; then :
 
 cat >>confdefs.h <<_ACEOF
 #define CRAY_STACKSEG_END $ac_func
@@ -11419,7 +11413,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.
@@ -11615,7 +11609,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
@@ -11704,7 +11698,8 @@
 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"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
+eval as_val=\$$as_ac_var
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -11735,7 +11730,8 @@
 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"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
+eval as_val=\$$as_ac_var
+   if test "x$as_val" = x""yes; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -11787,8 +11783,8 @@
 static time_t time_t_min;
 
 /* Values we'll use to set the TZ environment variable.  */
-static const char *tz_strings[] = {
-  (const char *) 0, "TZ=GMT0", "TZ=JST-9",
+static char *tz_strings[] = {
+  (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]))
@@ -11805,7 +11801,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 ((char*) "TZ=PST8PDT,M4.1.0,M10.5.0");
+  putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
 
   tm.tm_year = 98;
   tm.tm_mon = 3;
@@ -11818,14 +11814,16 @@
 }
 
 static int
-mktime_test1 (time_t now)
+mktime_test1 (now)
+     time_t now;
 {
   struct tm *lt;
   return ! (lt = localtime (&now)) || mktime (lt) == now;
 }
 
 static int
-mktime_test (time_t now)
+mktime_test (now)
+     time_t now;
 {
   return (mktime_test1 (now)
 	  && mktime_test1 ((time_t) (time_t_max - now))
@@ -11849,7 +11847,8 @@
 }
 
 static int
-bigtime_test (int j)
+bigtime_test (j)
+     int j;
 {
   struct tm tm;
   time_t now;
@@ -11893,7 +11892,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 ((char*) "TZ=PST8PDT,M4.1.0,M10.5.0");
+  putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
 
   t = mktime (&tm);
 
@@ -11928,7 +11927,7 @@
   for (i = 0; i < N_STRINGS; i++)
     {
       if (tz_strings[i])
-	putenv ((char*) tz_strings[i]);
+	putenv (tz_strings[i]);
 
       for (t = 0; t <= time_t_max - delta; t += delta)
 	if (! mktime_test (t))
@@ -11980,7 +11979,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
 
@@ -12849,7 +12848,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
@@ -13996,7 +13995,8 @@
 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"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
+eval as_val=\$$as_ac_var
+   if test "x$as_val" = 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,7 +14936,6 @@
 
 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$//'
@@ -15099,19 +15098,19 @@
 (unset CDPATH) >/dev/null 2>&1 && unset CDPATH
 
 
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
+# as_fn_error 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=$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_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_fn_exit $as_status
 } # as_fn_error
 
@@ -15307,7 +15306,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
@@ -15361,7 +15360,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.67.  Invocation command line was
+generated by GNU Autoconf 2.65.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
   CONFIG_HEADERS  = $CONFIG_HEADERS
@@ -15427,10 +15426,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.67,
+configured by $0, generated by GNU Autoconf 2.65,
   with options \\"\$ac_cs_config\\"
 
-Copyright (C) 2010 Free Software Foundation, Inc.
+Copyright (C) 2009 Free Software Foundation, Inc.
 This config.status script is free software; the Free Software Foundation
 gives unlimited permission to copy, distribute and modify it."
 
@@ -15446,16 +15445,11 @@
 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
@@ -15477,7 +15471,6 @@
     $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;;
@@ -15490,7 +15483,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 ;;
@@ -15499,7 +15492,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"
@@ -15567,7 +15560,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
 
@@ -15605,7 +15598,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.
@@ -15639,7 +15632,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
@@ -15656,7 +15649,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
 
 {
@@ -15664,18 +15657,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
@@ -15770,28 +15763,20 @@
 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 sole $(srcdir),
-# ${srcdir} and @srcdir@ entries 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 $(srcdir),
+# ${srcdir} and @srcdir@ 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[	 ]*=[	 ]*/{
-h
-s///
-s/^/:/
-s/[	 ]*$/:/
-s/:\$(srcdir):/:/g
-s/:\${srcdir}:/:/g
-s/:@srcdir@:/:/g
-s/^:*//
+  ac_vpsub='/^[	 ]*VPATH[	 ]*=/{
+s/:*\$(srcdir):*/:/
+s/:*\${srcdir}:*/:/
+s/:*@srcdir@:*/:/
+s/^\([^=]*=[	 ]*\):*/\1/
 s/:*$//
-x
-s/\(=[	 ]*\).*/\1/
-G
-s/\n//
 s/^[^=]*=[	 ]*$//
 }'
 fi
@@ -15819,7 +15804,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
@@ -15904,7 +15889,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"
 
 
@@ -15917,7 +15902,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
@@ -15945,7 +15930,7 @@
 	   [\\/$]*) false;;
 	   *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
 	   esac ||
-	   as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5 ;;
+	   as_fn_error "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'"
@@ -15972,7 +15957,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
@@ -16108,22 +16093,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)
   #
@@ -16134,19 +16119,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
  ;;
 
@@ -16183,7 +16168,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.
@@ -16204,7 +16189,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 1
+  $ac_cs_success || as_fn_exit $?
 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 19:44:07 2010 +0900
+++ b/doc/misc/ediff.texi	Mon Sep 13 16:42:33 2010 +0200
@@ -1986,7 +1986,8 @@
 this:
 
 @comment Use @set to avoid triggering merge conflict detectors like CVS.
-@set seven-left 
+@set seven-left <<<<<<<
+@set seven-right >>>>>>>
 @example
 @value{seven-left} variant A
 the difference region from buffer A

--- a/lisp/files.el	Mon Sep 13 19:44:07 2010 +0900
+++ b/lisp/files.el	Mon Sep 13 16:42:33 2010 +0200
@@ -1,18 +1,3 @@
-;;  (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 19:44:07 2010 +0900
+++ b/lisp/ldefs-boot.el	Mon Sep 13 16:42:33 2010 +0200
@@ -10464,6 +10464,7 @@
 
 ;;;### (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 19:44:07 2010 +0900
+++ b/lisp/net/tramp-cache.el	Mon Sep 13 16:42:33 2010 +0200
@@ -1,5 +1,3 @@
-(setq tramp-version 24)
-
 ;;; tramp-cache.el --- file information caching for Tramp
 
 ;; Copyright (C) 2000, 2005, 2006, 2007, 2008, 2009,
@@ -53,8 +51,6 @@
 ;;; 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 19:44:07 2010 +0900
+++ b/lisp/net/tramp-compat.el	Mon Sep 13 16:42:33 2010 +0200
@@ -29,9 +29,7 @@
 
 ;;; Code:
 
-(eval-when-compile
-
-  (require 'tramp-loaddefs))
+(require 'tramp-loaddefs)
 
 (eval-when-compile
 

--- a/lisp/net/tramp.el	Mon Sep 13 19:44:07 2010 +0900
+++ b/lisp/net/tramp.el	Mon Sep 13 16:42:33 2010 +0200
@@ -1,4 +1,3 @@
-(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 19:44:07 2010 +0900
+++ b/lisp/textmodes/page.el	Mon Sep 13 16:42:33 2010 +0200
@@ -1,10 +1,3 @@
-;; (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,

--- a/share/emacs/site-lisp/w3m/ChangeLog	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,10524 +0,0 @@
-2010-09-09  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.
-
-2010-09-09  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]>.
-
-2010-09-06  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).
-
-2010-09-06  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.
-
-2010-09-06  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-input-url): Move cursor to place where a user likely
-	begins to edit.
-
-2010-09-02  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el (texinfo-multitable-widths): Use `make-char'
-	instead of KANJI literal.
-
-2010-08-24  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el (texinfo-format-verb): Use (delete-char -1)
-	instead of (delete-backward-char 1); For Emacs24.
-
-2010-08-20  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-entity-table): Reverte last change.
-	(w3m-extra-numeric-character-reference): New variable.
-	(w3m-entity-value): Use it.
-
-2010-08-18  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.
-
-2010-08-18  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.
-
-2010-08-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-safe-view-this-url): Never query "Are you sure..." if
-	prefix arg is given.
-
-2010-08-10  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.
-
-2010-08-05  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Update regexps for Google.
-
-2010-07-30  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el: Autoload w3m-bookmark-add.
-
-	* w3m-lnum.el (w3m-read-int-interactive): Ignore mouse event in XEmacs.
-
-2010-07-29  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.
-
-2010-07-25  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]
-
-2010-07-23  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.
-
-2010-07-13  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'.
-
-2010-07-13  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.
-
-2010-07-12  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.
-
-2010-07-09  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-lnum.el (w3m-read-int-interactive): Add keys to exit event loop,
-	C-m & C-j.
-
-2010-07-09  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.
-
-2010-07-09  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.
-
-2010-07-08  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.
-
-2010-07-06  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.
-
-2010-06-25  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-toggle-inline-image)
-	(w3m-toggle-inline-images): Fix query logic about safe url.
-
-2010-06-24  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.
-
-2010-06-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-update-files-autoloads): Strip subdirectory name
-	that Emacs 24 doesn't strip from load-name.
-
-2010-06-03  Hideyuki SHIRAI  <[e-mail]>
-
-	* octet.el (octet-w3m-region): Set to unibyte string for base64
-	encoding.
-
-2010-05-24  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.
-
-2010-05-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Update regexps for Google.
-
-2010-04-21  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-view-previous-page): Save positions.
-
-2010-03-29  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.
-
-2010-03-29  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-active-region-or-url-at-point): Check availability of
-	w3m-current-url.
-
-2010-03-12  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.
-
-2010-03-12  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.
-
-2010-03-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-ignored-image-url-regexp): Fix custom type.
-
-2010-03-09  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.
-
-2010-03-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el: Suppress compiler warnings that Emacs<22.2 and XEmacs issue
-	against image-mode functions.
-
-2010-03-02  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.
-
-2010-02-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Turn truncate-lines off for text/plain pages.
-
-2010-02-18  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.
-
-2010-02-13  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (w3m-window-hscroll): Revert 2010-01-13 change.
-
-2010-02-09  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.
-
-2010-02-02  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]>.
-
-2010-02-01  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-redisplay-this-page): Save positions.
-
-2010-02-01  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.
-
-2010-01-25  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.
-
-2010-01-19  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'.
-
-2010-01-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Make it work as before for group: urls.
-
-2010-01-15  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.
-
-2010-01-13  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.
-
-2010-01-12  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.
-
-2010-01-12  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.
-
-2010-01-12  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.
-
-2009-11-06  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-antenna.el (w3m-antenna-check-rss): Ignore future entries to
-	display site announcements.
-
-2009-11-03  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-w3m-region-cite-mark): Add new selection.
-	(mew-w3m-region): Rewrite.
-
-2009-11-02  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'.
-
-2009-09-02  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'.
-
-2009-09-02  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.
-
-2009-09-01  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].
-
-2009-08-25  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.
-
-2009-08-24  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-output-coding-system): Use `utf-8' except for emacs-21
-	under Japaese environment.
-
-2009-08-19  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-use-symbol): Set nil with emacs-23 or later.
-	cf. [emacs-w3m:11002].
-
-2009-08-18  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.
-
-2009-08-17  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.
-
-2009-08-04  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-decode-anchor-string): Convert contol-characters to
-	space.
-
-2009-07-17  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.
-
-2009-07-04  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.
-
-2009-06-13  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.
-
-2009-06-13  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): Decode entities of name anchor.
-
-2009-05-25  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.
-
-2009-05-23  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.
-
-2009-04-28  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.
-
-2009-04-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-cache-available-p): Work around too large integer in
-	Cache-Control header.
-
-2009-04-27  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.
-
-2009-04-24  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".
-
-2009-04-23  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-bookmark.el (w3m-bookmark-buffer): Use the time 0 as modtime of
-	the bookmark buffer by default.
-
-2009-04-22  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-view-this-url-1): Pass url to sentinel.
-	(w3m-recenter): Save excursion.
-
-2009-04-22  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.
-
-2009-04-20  Kevin Ryde  <[e-mail]>
-
-	* w3m.el (w3m-local-find-file-regexps): Make regexp-opt group regexps
-	explicitly.
-
-2009-04-14  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.
-
-2009-04-12  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.
-
-2009-04-02  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.
-
-2009-03-28  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.
-
-2009-03-18  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>.
-
-2009-03-17  Victor Ren  <[e-mail]>
-
-	* w3m.el (w3m-url-to-file-name): Support "file://c:/" in addition to
-	"file:///c:/".
-
-2009-03-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-w3m-parse-header): The value of w3m-document-charset is
-	not used excluding x-moe-internal.
-
-2009-03-04  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.
-
-2009-03-03  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.
-
-2009-02-26  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.
-
-2009-02-24  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.
-
-2008-04-12  Jose A. Ortega Ruiz  <[e-mail]>
-
-	* w3m-lnum.el (w3m-go-to-linknum): New function.
-
-2009-02-23  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.
-
-2009-02-16  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-session.el (w3m-session-last-crashed-session): Fix tiny typo.
-
-2009-02-15  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.
-
-2009-02-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-buffer-setup): Add keymap that cycles buffers as usual to
-	mode-line-buffer-identification.
-
-2009-02-09  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.
-
-2009-02-04  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-header-line-insert): Don't decode url containing
-	non-ASCII characters already.  e.g. about://weather/WHERE
-
-2009-02-03  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-w3m-cid-retrieve): Remove a wrong set-buffer().
-
-2009-02-03  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.
-
-2009-02-02  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.
-
-2009-02-01  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.
-
-2009-01-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-proc.el: Autoload w3m-idle-images-show-unqueue when compiling.
-
-2009-01-27  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.
-
-2009-01-26  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-content-type-alist): Add "application/x-pdf" content
-	type.
-
-2009-01-21  Kevin Ryde  <[e-mail]>
-
-	* w3m.el (w3m-search-name-anchor): Return true meaning "found" if
-	point is already at the anchor position.
-
-2009-01-21  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]>.
-
-2009-01-20  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.
-
-2009-01-19  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-image-anchor): Fix docstring.
-	(toplevel): Fix w3m-image-anchor-face's alias.
-
-2009-01-15  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.
-
-2009-01-14  Katsumi Yamaoka  <[e-mail]>
-
-	* doc/Makefile.in (.texi.info): Use --no-split.
-
-2009-01-11  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.
-
-2009-01-10  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.
-
-2009-01-09  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.
-
-2009-01-09  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-create-text-page, w3m-goto-url): Check if the url is
-	arrived before getting real-url.
-
-2009-01-06  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'.
-
-2008-12-30  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.
-
-2008-12-17  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.
-
-2008-12-17  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.
-
-2008-12-15  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-compatible-encoding-alist): Add (gb2312 . gbk).
-
-2008-12-12  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).
-
-2008-12-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-show-redirection-error-information): Improve the
-	error message.
-
-2008-12-10  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.
-
-2008-12-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-ems.el (w3m-make-ccl-coding-system): Use define-coding-system if
-	it is available.
-
-2008-12-06  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.
-
-2008-12-05  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.
-
-2008-12-03  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-fontify): Remove hidden anchors like "<a href=url> </a>".
-	cf. [emacs-w3m:10484]
-
-2008-12-01  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.
-
-2008-11-21  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-w3m-parse-header): Also remove parameters when charset is
-	specified.
-
-2008-11-11  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().
-
-2008-11-11  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.
-
-2008-10-28  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-view-header): Check if current page is source of
-	about:something.
-
-2008-10-16  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.
-
-2008-10-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-italic): Make it be a underline face on a non-window
-	system by default.
-
-2008-09-24  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.
-
-2008-09-21  Akinori MUSHA  <[e-mail]>
-
-	* doc/emacs-w3m.texi (Image Variables): Fix syntax error.
-
-	* doc/emacs-w3m-ja.texi (Image Variables): Ditto.
-
-2008-09-17  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.
-
-2008-09-12  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.
-
-2008-09-11  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.
-
-2008-09-01  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.
-
-2008-08-25  David Hansen  <[e-mail]>
-
-	* w3m.el (w3m-about-header): Fixed typo.
-
-2008-08-05  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-view-source, w3m-view-header): Save points positioned
-	last in pages.  Suggested by Dan Jacobson <[e-mail]>.
-
-2008-07-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-ems.el: Bind w3m-image-default-background when compiling.
-
-2008-07-20  Naohiro Aota  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-restore-position): Run
-	w3m-after-cursor-move-hook after restoring cursor position.
-
-2008-07-18  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.
-
-2008-07-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Test if mule-version is
-	bound (XEmacs does not provide it).
-
-2008-06-30  Naohiro Aota  <[e-mail]>
-
-	* w3m-form.el (w3m-form-input, w3m-form-input-password): Process
-	readonly attribute.
-
-2008-06-25  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'.
-
-2008-06-25  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.
-
-2008-06-22  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.
-
-2008-06-18  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.
-
-2008-06-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-auto-show): Scrool horizontally after executing a search
-	command.
-
-2008-06-07  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-use-header-line-title): Modify the doc-string.
-
-2008-06-06  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.
-
-2008-06-03  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el: Add coding cookie.
-
-2008-06-02  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-detect-meta-charset): Use also ';' as delimiter.
-
-2008-05-28  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:".
-
-2008-05-28  Naohiro Aota  <[e-mail]>
-
-	* doc/emacs-w3m.texi (Inline Images): Update.
-
-	* doc/emacs-w3m-ja.texi (Inline Images): Ditto.
-
-2008-05-27  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.
-
-2008-05-25  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google
-	search within EmacsWiki.
-
-2008-05-20  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.
-
-2008-05-18  Naohiro Aota  <[e-mail]>
-
-	* w3m-cookie.el (w3m-cookie-save-current-site-cookies): New function.
-	(w3m-cookie-save): Add optional argument "domain".
-
-2008-05-16  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.
-
-2008-05-09  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.
-
-2008-05-08  Naohiro Aota  <[e-mail]>
-
-	* w3m-cookie.el (w3m-cookie-shutdown): Fixed docstring.
-
-2008-05-08  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-amazon): Fix string to search the body.
-
-2008-04-30  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.
-
-2008-04-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-rules): Support Mixi with SSL.
-
-2008-04-22  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el: Fix Comments.
-	(texinfo-format-geq, texinfo-format-leq,): Support @geq and @leq.
-
-2008-04-18  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.
-
-2008-04-17  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'.
-
-2008-04-15  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.
-
-2008-04-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Fix custom type.
-
-2008-04-03  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Support Google search
-	within EmacsWiki.  cf. [emacs-w3m:10067]
-
-2008-03-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-mouse-safe-view-this-url): Remove redundant confirmation
-	of whether to follow link.
-
-2008-03-14  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.
-
-2008-03-12  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]
-
-2008-03-03  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.
-
-2008-02-20  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.
-
-2008-02-07  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-expand-path-name): New function.
-	(w3m-expand-url): Remove useless expanded path-name check.
-
-2008-02-06  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.
-
-2008-01-30  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): Don't expand icon's url when it is nil.
-
-2008-01-26  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.
-
-2008-01-20  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.
-
-2008-01-16  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.
-
-2008-01-15  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.
-
-2008-01-11  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.
-
-2008-01-09  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.
-
-2008-01-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-url-decode-string): Don't replace +'s with spaces.
-
-2007-12-27  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.
-
-2007-12-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-session.el (w3m-session-goto-session): Go to the current w3m
-	buffer in data of session.
-
-2007-12-24  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.
-
-2007-12-23  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'.
-
-2007-12-20  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'.
-
-2007-12-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-mode): Set show-trailing-whitespace to nil.
-
-2007-12-18  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.
-
-2007-12-17  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.
-
-2007-12-15  Naohiro Aota  <[e-mail]>
-
-	* w3m-form.el (w3m-form-submit): Remove query part from the form's
-	action url when using get method.
-
-2007-12-14  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.
-
-2007-12-13  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.
-
-2007-12-11  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-favicon.el (w3m-favicon-convert): Make last change revert.
-
-2007-12-11  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.
-
-2007-12-06  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Canonicalize the url when it is called
-	non-interactively.
-
-2007-12-01  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.
-
-2007-11-30  Naohiro Aota  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-y-or-n-p): Ignore space to avoid
-	answering y without intention.
-
-2007-11-29  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.
-
-2007-11-29  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.
-
-2007-11-29  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.
-
-2007-11-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-resize-inline-image-internal): Validate image url.
-	Reported by Naohiro Aota <[e-mail]>.
-
-2007-11-27  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-toggle-inline-images-internal): Confirm retrieving
-	non-secure image.
-	(w3m-resize-inline-image-internal): Ditto.
-
-2007-11-27  Katsumi Yamaoka  <[e-mail]>,
-	    TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-retrieve-and-render): Permit leaving safe pages
-	without confirmation for several safe commands.
-
-2007-11-26  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.
-
-2007-11-26  Trent W. Buck  <[e-mail]>
-
-	* w3m.el (w3m-confirm-leaving-secure-page): New user option.
-	(w3m-retrieve-and-render): Use it.
-
-2007-11-22  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.
-
-2007-11-06  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.
-
-2007-11-05  Naohiro Aota  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-rules): Add rule for the site of imepita.
-	(w3m-filter-imepita): New function.
-
-2007-11-03  David Hansen  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-wait-process): Preserve the current buffer
-	\(work around an Emacs bug\).
-
-2007-11-03  David Hansen  <[e-mail]>
-
-	* w3m.el (w3m-relationship-oddmuse-estimate): Follow new page layout.
-
-2007-11-01  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.
-
-2007-10-26  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.
-
-2007-10-25  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (install-lisp): Don't install w3m-ems.el for XEmacs and
-	w3m-xmas.el for GNU Emacs.
-
-2007-10-17  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.
-
-2007-10-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (w3m-find-coding-system): Return symbol, not coding
-	system object.
-
-2007-10-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-entity-regexp, w3m-entity-value): Accept case-insensitive
-	numeric character references.
-
-2007-10-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-message): Work with XEmacs.
-
-2007-10-04  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-ems.el: Bind w3m-use-title-buffer-name (see the comment).
-
-	* Makefile.in (very-slow): Add missing semicolon.
-
-2007-10-03  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (install-lisp): Don't install ChangeLog~.
-
-2007-10-02  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-show-error-information): When emacs-w3m cannot find
-	host, set charset to us-ascii.
-
-2007-10-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-show-decoded-url): Add entry for nikkei.co.jp.
-
-2007-09-28  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.
-
-2007-09-27  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.
-
-2007-09-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-entity-regexp): Bind max-specpdl-size for old Emacsen.
-	(w3m): Revert 2007-09-19 change.
-
-2007-09-26  Katsumi Yamaoka  <[e-mail]>
-
-	* NEWS: New file.
-
-2007-09-25  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.
-
-2007-09-24  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.
-
-2007-09-21  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el: Support @fonttextsize, @textdegree.
-
-2007-09-19  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.
-
-2007-09-19  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.
-
-2007-09-13  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-expand-path-name): Save the matched data surely.
-
-2007-09-09  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.
-
-2007-09-07  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.
-
-2007-09-03  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.
-
-2007-09-03  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.
-
-2007-08-31  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.
-
-2007-08-30  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.
-
-2007-08-29  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.
-
-2007-08-28  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'.
-
-2007-08-24  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-mailto-url): Make it work even with no rfc2368.el.
-
-2007-08-21  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.
-
-2007-08-20  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.
-
-2007-07-30  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.
-
-2007-07-30  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-ucs.el (font-ccl-encoder-alist): Bind it for XEmacs 21.5.
-
-2007-07-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Make Google rule support
-	images.
-
-2007-07-23  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.
-
-2007-07-17  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.
-
-2007-07-04  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.
-
-2007-07-03  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.
-
-2007-07-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-make-help-echo): Make the function for Emacs bind
-	deactivate-mark to nil.
-
-2007-06-26  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.
-
-2007-06-21  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Format @key{...}.
-
-2007-06-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-lynx-like-map, w3m-info-like-map): Bind [backtab] to
-	w3m-previous-anchor.
-
-2007-06-08  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'.
-
-2007-06-08  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.
-
-2007-06-07  Naohiro Aota  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add output encoding argument
-	to google search.
-
-2007-06-06  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.
-
-2007-06-05  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3m-image.el (w3m-imagick-start-convert-data): Clarify message which
-	is issued when convert program is not available.
-
-2007-06-05  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-mixi): Follow the change of Mixi's HTML.
-
-2007-06-01  Katsumi Yamaoka  <[e-mail]>
-
-	* attic/vm-w3m.el, attic/vm-7.19.patch: Remove.  They have been
-	integrated into VM 8.x.
-
-2007-05-17  Tatsuya Kinoshita  <[e-mail]>
-
-	* w3m.el (w3m-view-this-url-1): Check whether the marker buffer exists.
-
-2007-05-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-ems.el (w3m-switch-to-buffer, w3m-subst-switch-to-buffer-keys):
-	Remove.
-
-2007-05-17  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-expand-url): Guard error in aref when url is "".
-
-2007-05-16  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".
-
-2007-05-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-ems.el (w3m-switch-to-buffer): Work just like switch-to-buffer.
-	Suggested by Robert J. Chassell <[e-mail]>.
-
-2007-05-11  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]>.
-
-2007-05-09  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.
-
-2007-05-08  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.
-
-2007-04-30  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.
-
-2007-04-28  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Use w3m-url-transfer-encode-string
-	instead of w3m-url-encode-string.
-
-2007-04-27  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-view-this-url): Check if w3m-current-url is string before
-	matching.
-
-2007-04-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Fully decode a source by default.
-	(w3m-view-source): Doc fix.
-
-2007-04-26  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Redisplay to search an anchor sure with
-	goto-new-session.
-
-2007-04-26  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.
-
-2007-04-25  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.
-
-2007-04-24  Naohiro Aota  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Use charset specified in meta tag even
-	for decoding html source.
-
-2007-04-24  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (install-lisp): Install shimbun/ChangeLog file.
-
-2007-04-24  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.
-
-2007-04-24  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.
-
-2007-04-19  Katsumi Yamaoka  <[e-mail]>
-
-	* ChangeLog, ChangeLog.1: Separate shimbun entries.
-	(Local Variables): Set fill-column to 79.
-
-2007-04-19  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-form.el (w3m-form-input-textarea-filename): Use MD5 first.
-
-2007-04-14  Naohiro Aota  <[e-mail]>
-
-	* w3m-form.el (w3m-form-input-textarea-filename): Truncate filename
-	into less than or equal to 255 bytes long.
-
-2007-04-06  Matt Hodges  <[e-mail]>
-
-	* w3m.el (w3m-next-buffer): Fix last change when w3m-fb-mode.
-
-2007-04-04  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-view-parent-page): Use numbered prefix argument to move
-	the parent directory according to input number.
-
-2007-03-31  Andreas Seltenreich  <[e-mail]>
-
-	* w3m.el (w3m-external-view-file): Actually kill the temporary buffer.
-
-2007-03-30  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.
-
-2007-03-30  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.
-
-2007-03-29  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.
-
-2007-03-29  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.
-
-2007-03-28  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.
-
-2007-03-27  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.
-
-2007-03-27  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.
-
-2007-03-23  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.
-
-2007-03-23  Katsumi Yamaoka  <[e-mail]>
-
-	* aclocal.m4 (AC_SET_XEMACSDEBUG): Fix the way to quote the value of
-	XEMACSDEBUG.  Reported by Norbert Koch <[e-mail]>.
-
-2007-03-22  Katsumi Yamaoka  <[e-mail]>
-
-	* aclocal.m4 (AC_SET_XEMACSDEBUG): Quote VANILLA_FLAG.
-
-2007-03-16  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'.
-
-2007-03-15  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-session.el (w3m-session-deleted-save): Sort buffers to use their
-	name.
-
-2007-03-13  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'.
-
-2007-03-12  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
-
-2007-03-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-generate-load-file): Advise make-autoload to
-	support define-minor-mode if it should be necessary.
-
-2007-03-08  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.
-
-2007-03-08  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-session.el (w3m-session-select): Use next-command-event and
-	event-key for XEmacs with checked surely.
-
-2007-03-08  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.
-
-2007-03-08  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.
-
-2007-02-28  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.
-
-2007-02-24  Tatsuya Kinoshita  <[e-mail]>
-
-	* Makefile.in, doc/Makefile.in (clean): Remove doc/version.texi.
-
-2007-02-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Improve further regexp matching urls
-	containing non-ASCII characters.
-
-2007-02-21  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Improve regexp matching urls containing
-	non-ASCII characters.
-
-2007-02-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Encode urls containing non-ASCII
-	characters.
-
-2007-02-06  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.
-
-2007-02-05  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.
-
-2007-02-05  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.
-
-2007-02-04  David Hansen  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Added
-	`w3m-relationship-slashdot-estimate'.
-	(w3m-relationship-slashdot-estimate): New function.
-
-2007-02-02  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.
-
-2007-02-01  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.
-
-2007-01-31  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-clean-hook-options): Remove.
-
-2007-01-31  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-search.el (w3m-search-read-query): Check that face property is
-	`list' to avoid argument error.
-
-2007-01-30  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.
-
-2007-01-29  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.
-
-2007-01-26  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.
-
-2007-01-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-halfdump-command-arguments): Generate the right values
-	for non-Mule XEmacs.
-
-2007-01-24  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-message): Clear previous message first.  Suggested by
-	David Hansen <[e-mail]>.
-
-2007-01-18  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.
-
-2007-01-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el: Autoload iswitchb-read-buffer when compiling.
-
-2007-01-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-e21-switch-to-buffer): Add iswitchb-mode support.
-
-2007-01-09  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]>.
-
-2006-12-21  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.
-
-2006-12-13  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Fix amazon entry.
-
-2006-12-11  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.
-
-2006-12-09  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.
-
-2006-12-08  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.
-
-2006-12-08  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.
-
-2006-12-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-italic-face): New face.
-	(w3m-fontify-italic): New function.
-	(w3m-fontify): Use it.
-
-2006-11-25  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (w3m-mail-compose-with-mew): Refrain handling of
-	`current-prefix-arg'.
-
-2006-11-14  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".
-
-2006-11-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-mail.el (w3m-mail-compose-with-vm): Require vm-startup.
-
-2006-11-20  Hiroya Murata  <[e-mail]>
-
-	* w3m-mail.el (w3m-mail-compose-with-semi): Require mime-edit.
-
-2006-10-11  David Hansen  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Support for google code
-	search added.
-
-2006-10-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el, w3m-bookmarks.el, w3m-search.el: Remove misadded Luca Capello
-	from the Authors field.
-
-2006-10-06  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-compatible-encoding-alist): Add iso-8859-8/windows-1255
-	and iso-8859-9/windows-1254.
-
-2006-10-02  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.
-
-2006-09-29  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.
-
-2006-09-29  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.
-
-2006-09-29  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.
-
-2006-09-28  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.
-
-2006-09-28  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.
-
-2006-09-28  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.
-
-2006-09-28  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.
-
-2006-09-27  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.
-
-2006-09-27  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.
-
-2006-09-26  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.
-
-2006-09-25  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.
-
-2006-09-22  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.
-
-2006-09-20  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.
-
-2006-09-16  David Hansen  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Changed freshmeat URL
-	regexp.
-
-2006-09-13  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]>.
-
-2006-09-09  Masayuki Ataka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Instruct explicitly Google
-	to return English pages for google-en.
-
-2006-09-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-default-directory): New variable.
-	(w3m-current-directory): Use it.
-
-2006-09-05  David Hansen  <[e-mail]>
-
-	* w3m.el (w3m-local-find-file-regexps): Default to '(nil
-	. "\\.[sx]?html?\\'").
-
-2006-08-31  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.
-
-2006-08-30  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-show-decoded-url): Add entry for ohmynews.co.jp.
-
-2006-08-30  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.
-
-2006-08-11  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.
-
-2006-07-25  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el (w3m-truncate-string): Don't autoload mule-util.el.
-
-2006-06-19  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.
-
-2006-06-15  Katsumi Yamaoka  <[e-mail]>
-
-	* attic/rfc2368.el: Copy from Emacs 22; modify rfc2368-unhexify-string
-	to work with both Emacs and XEmacs.
-
-2006-05-31  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.
-
-2006-05-31  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-read-query): Ignore page title only in
-	w3m-mode buffers.
-
-2006-05-30  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.
-
-2006-05-30  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.
-
-2006-05-28  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.
-
-2006-05-26  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.
-
-2006-05-22  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.
-
-2006-05-21  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3m.el (autoload): `w3m-bookmark-view-new-sessiont' ->
-	`w3m-bookmark-view-new-session'.
-
-2006-05-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-home-page): Rewrite :convert-widget function.
-	(w3m-new-session-url): Ditto.
-
-2006-05-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-new-session-url): Doc fix; improve custom type.
-	(w3m-new-session-in-background): Doc fix.
-
-2006-05-19  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.
-
-2006-05-18  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.
-
-2006-05-18  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'.
-
-2006-05-18  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.
-
-2006-05-18  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.
-
-2006-05-18  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'.
-
-2006-05-18  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'.
-
-2006-05-17  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.
-
-2006-05-17  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.
-
-2006-05-17  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.
-
-2006-05-17  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.
-
-2006-05-16  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.
-
-2006-05-14  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.
-
-2006-05-11  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Use utf-8 for google if
-	possible.
-
-2006-05-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-show-decoded-url): Add entry for hatena.ne.jp.
-
-2006-05-09  Katsumi Yamaoka  <[e-mail]>
-
-	* aclocal.m4 (AC_SET_VANILLA_FLAG): Add --no-unibyte option so as to
-	invalidate EMACS_UNIBYTE environment variable.
-
-2006-05-07  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.
-
-2006-05-07  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.
-
-2006-05-06  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Remove lycos-ja.
-
-2006-05-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-history): New variable.
-	(w3m-search): Use it.
-
-2006-05-01  David Hansen  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add freshmeat.
-
-2006-04-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-url-decode-string): Don't perform find-coding-system on a
-	list of coding system in XEmacs.
-
-2006-04-28  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.
-
-2006-04-24  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el: Require APEL XEmacs package 1.32 and later.
-
-2006-04-22  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add msdn.
-
-2006-04-21  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.
-
-2006-04-20  Kazuhiro NISHIYAMA  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Fix url for ja.wikipedia.
-
-2006-04-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add ja.wikipedia.
-
-2006-04-20  David Hansen  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add wikipedia, en.wikipedia
-	and de.wikipedia.
-
-2006-04-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-download): Clear minibuffer after y-or-n-p.
-
-2006-04-06  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.
-
-2006-04-04  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-url-decode-string): Make string unibyte before decoding.
-
-2006-03-16  Tsuyoshi CHO  <[e-mail]>
-
-	* w3m.el (w3m-data-retrieve): New function.
-	(w3m-attributes, w3m-retrieve): Add support `data:' scheme handled by
-	`w3m-data-retrieve'.
-
-2006-03-15  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.
-
-2006-03-12  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'.
-
-2006-02-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Decode buffer's string outside the
-	buffer.
-
-2006-02-26  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.
-
-2006-02-01  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.
-
-2006-01-19  Tsuyoshi CHO  <[e-mail]>
-
-	* w3m.el (w3m-fontify-strike-through): Improve matching point.
-
-2006-01-16  Katsumi Yamaoka  <[e-mail]>
-
-	* doc/Makefile.in: Add rules to make pdf files.
-
-	* configure.in: Check for dvipdfmx and texi2pdf.
-
-2005-12-31  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-util.el (top): Add the variable definition of `w3m-mode-hook' to
-	avoid byte-compile warnings.
-
-2005-12-30  Tsuyoshi CHO  <[e-mail]>
-
-	* w3m.el (w3m-fontify-strike-through): Fix multi `<del>' problem.
-
-2005-12-23  Matt Hodges  <[e-mail]>
-
-	* w3m-util.el (w3m-list-buffers): Ensure disabling the w3m-fb-mode
-	after a careless (setq w3m-fb-mode t).
-
-2005-12-22  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.
-
-2005-12-19  Matt Hodges  <[e-mail]>
-
-	* w3m-util.el (w3m-list-buffers): Further fix against the case where
-	someone did (setq w3m-fb-mode t).
-
-2005-12-19  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.
-
-2005-12-19  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.
-
-2005-11-26  Matt Hodges  <[e-mail]>
-
-	* w3m-fb.el: New file.
-
-2005-12-09  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.
-
-2005-11-24  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-form.el (w3m-form-submit): If anchor exists, go to the uri.
-
-2005-11-21  Tsuyoshi CHO  <[e-mail]>
-
-	* w3m-favicon.el (w3m-favicon-type): Renew default image type list.
-
-2005-11-19  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]'.
-
-2005-11-16  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-open-all-links-in-new-session): Reverse the list of URLs.
-
-2005-10-21  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.
-
-2005-10-17  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-util.el (w3m-add-face-property): Simplified.
-
-2005-10-15  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.
-
-2005-10-14  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.
-
-2005-09-29  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-filter): Fixed regexp.
-
-2005-09-27  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-filter): Remove SSL warning message for
-	basic authentication over SSL.
-
-2005-09-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-fontify): Remove empty lines at the beginning of the
-	buffer (see the comment).
-
-2005-09-21  Katsumi Yamaoka  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-preview-text/html): Revert.
-
-2005-09-21  Katsumi Yamaoka  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-preview-text/html): Bind w3m-treat-image-size
-	to avoid inserting excessive newlines.
-
-2005-09-18  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.
-
-2005-09-16  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-redisplay-this-page): Use the cache always.
-
-2005-09-15  Masayuki Ataka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add "blog-*" entries.
-
-2005-09-02  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el: Support @frenchspacing, @euro, @sansserif.
-	(texinfo-format-ordf): Fix typo.
-
-2005-09-01  Hiroshi Fujishima  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Update goo-ja, waei, eiwa,
-	kokugo URL.
-
-2005-08-29  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-ucs.el: Enable XEmacs 21.5-Mule to compile it anyway.
-
-2005-08-29  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): Put the encoded anchor names instead of
-	the itself.
-
-2005-08-01  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.
-
-2005-07-29  Kevin Rodgers  <[e-mail]>
-
-	* w3m.el (w3m-content-type-alist): Add the text/sgml entry.
-
-2005-07-29  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.
-
-2005-07-15  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.
-
-2005-07-13  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.
-
-2005-07-11  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.
-
-2005-07-11  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.
-
-2005-07-09  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.
-
-2005-07-08  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-print-current-url): Bind deactivate-mark.
-	(w3m-print-this-url): Ditto.
-
-2005-07-08  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).
-
-2005-07-05  Masayuki Ataka  <[e-mail]>
-
-	* ChangeLog: Add file local variables to set fill-column 74 and
-	indent-tabs-mode t.
-
-2005-07-03  Masayuki Ataka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add "technorati-*" entries.
-
-2005-07-01  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>.
-
-2005-06-26  Masayuki Ataka  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Add a rule for Yahoo Search
-	Beta.
-
-2005-06-26  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.
-
-2005-06-26  Masayuki Ataka  <[e-mail]>
-	    TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add Yahoo Beta.
-
-2005-06-18  Masayuki Ataka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Search Google News in US by
-	"google news-en".
-
-2005-06-17  Masayuki Ataka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add "google news" entry.
-
-2005-06-13  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.
-
-2005-06-10  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.
-
-2005-06-09  Tsuyoshi CHO  <[e-mail]>
-
-	* w3m.el: Update my mail address.
-
-2005-06-09  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.
-
-2005-06-09  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.
-
-2005-06-09  Masatake YAMATO  <[e-mail]>
-
-	* w3m-e21.el (w3m-initialize-graphic-icons): Highlight icon under
-	mouse.
-
-2005-06-09  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.
-
-2005-06-08  Masatake YAMATO  <[e-mail]>
-
-	* w3m-e21.el (w3m-setup-header-line): Highlight url under mouse.
-	(w3m-tab-line): Highlight tab under mouse.
-
-2005-05-30  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.
-
-2005-05-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el (w3m-truncate-string): Autoload mule-util for
-	truncate-string-to-width.
-
-2005-05-26  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.
-
-2005-05-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-menubar): Add the "Close Other Sessions" button.
-	(w3m-delete-other-buffers): Run w3m-force-window-update.
-
-2005-05-18  Katsumi Yamaoka  <[e-mail]>
-
-	* attic/vm-w3m.el (vm-w3m): Provide the feature.
-
-	* attic/vm-7.19.patch: New file.
-
-2005-05-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-open-all-links-in-new-session): Fix regexp.
-
-2005-05-11  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.
-
-2005-05-10  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.
-
-2005-04-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-remove-invisible-image-alt): New function.
-	(w3m-rendering-buffer): Use it.
-
-2005-04-13  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Decode "\240" into "&nbsp;".
-
-2005-04-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Decode `&#nnn;' entities in 128..159.
-
-2005-04-07  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.
-
-
-2005-03-25  Katsumi Yamaoka  <[e-mail]>
-
-	* Release emacs-w3m-1.4.4 from emacs-w3m-1_4 branch.
-
-2005-03-23  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.
-
-2005-03-23  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.
-
-2005-03-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (display-images-p): Remove alias.
-
-2005-03-18  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.
-
-2005-03-18  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.
-
-2005-03-17  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-favicon.el: Add autoload of `w3m-url-readable-string'.
-
-2005-03-17  Tsuyoshi CHO  <[e-mail]>
-
-	* w3m.el (w3m-check-header-tags): Check abnormal `base' url.
-
-2005-03-16  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.
-
-2005-03-15  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'.
-
-2005-03-13  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.
-
-2005-03-12  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.
-
-2005-03-10  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.
-
-2005-03-10  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.
-
-2005-03-10  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-fsf.el (w3m-detect-coding-region): Guard error for `undecided'.
-
-2005-03-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el: Remove the byte-optimizer which replaces truncate-string
-	with truncate-string-to-width.
-
-2005-03-09  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.
-
-2005-03-08  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.
-
-2005-03-04  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.
-
-2005-03-04  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.
-
-2005-03-03  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.
-
-2005-03-03  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-url-readable-string): An expression is evaluated without
-	checking type.
-
-2005-03-03  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.
-
-2005-03-03  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.
-
-2005-03-03  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.
-
-2005-03-02  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.
-
-2005-03-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (w3m-decode-coding-string-with-priority): New function.
-
-	* w3m.el (w3m-url-decode-string): Use it.
-
-2005-03-01  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes-1): Support `300 Multiple Choices'.
-	(w3m-w3m-retrieve): Ditto.
-	(w3m-w3m-retrieve-1): Ditto.
-
-2005-02-28  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.
-
-2005-02-25  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.
-
-2005-02-25  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-what-where): Fix the form.
-	(w3mhack-makeinfo): Silence it when formatting @multitable section.
-
-2005-02-25  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.
-
-2005-02-24  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.
-
-2005-02-24  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.
-
-2005-02-24  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.
-
-2005-02-23  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-antenna.el (w3m-antenna-check-rss): Parse all date fields.
-
-2005-02-21  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-input-textarea): Fix.
-
-2005-02-21  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.
-
-2005-02-21  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-textarea-edit-mode): Changed its default value
-	to `text-mode'.
-
-2005-02-21  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.
-
-2005-02-16  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.
-
-2005-02-16  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.
-
-2005-02-15  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.
-
-2005-02-14  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.
-
-2005-02-10  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.
-
-2005-02-06  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'.
-
-2005-02-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-gmane-url-at-point): New function.
-	(w3m-url-at-point): Use it.
-
-2005-01-30  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3m.el (w3m-attributes): Support cid urls.
-	(w3m-external-view): Ditto.
-
-2005-01-27  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.
-
-2005-01-25  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]>.
-
-2005-01-23  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.
-
-2005-01-19  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-content-type-alist): Check if "fiber.exe" is exist.
-
-2005-01-17  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-and-fontify): Check if w3m-current-url is
-	available.
-
-2004-07-24  Tsuyoshi CHO  <[e-mail]>
-
-	* w3m.el (w3m-menubar): Rearrange it hierarchical.
-	(w3m-setup-menu): Use easymenu.
-
-2005-01-10  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-form.el (w3m-form-input-textarea): Modify string of the inquiry.
-
-2005-01-07  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.
-
-2005-01-05  Katsumi Yamaoka  <[e-mail]>
-
-	* doc/Makefile.in (.texi.info): Set LC_ALL=C.
-
-2004-12-29  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.
-
-2004-12-28  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.
-
-2004-12-27  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.
-
-2004-12-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-restore-position): Handling the window of
-	w3m for sure absolutely.
-
-2004-12-23  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Revert.
-
-2004-12-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Bind undo-outer-limit.
-
-2004-12-17  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.
-
-2004-12-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-update-tab-line): Wobble the window size instead of
-	setting the cursor color.
-
-2004-12-15  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-namazu.el (w3m-namazu): Added optional argument `reload'.
-
-2004-12-14  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.
-
-2004-12-10  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.
-
-2004-12-03  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.
-
-2004-11-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (labels): A temporary substitution against the Emacs CVS
-	bug.
-
-2004-11-26  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-resume): Check whether a form exists, before
-	resuming its values from its history.
-
-2004-11-21  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.
-
-2004-11-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-redisplay-this-page): Don't make a new history.
-
-2004-11-17  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.
-
-2004-11-16  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'.
-
-2004-11-15  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.
-
-2004-10-27  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-check-refresh-attribute): Support own page reload.
-	(w3m-goto-url-with-timer): Ditto.
-
-2004-10-27  Katsumi Yamaoka  <[e-mail]>
-
-	* aclocal.m4 (AC_ADD_LOAD_PATH): Clarify the error message.
-
-2004-10-26  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.
-
-2004-10-25  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-check-refresh-attribute): Fix to analyze the URL.
-
-2004-10-21  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-touch-file): Protect against the absence of
-	file-name-coding-system and default-file-name-coding-system.
-
-2004-10-20  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.
-
-2004-10-16  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'.
-
-2004-10-08  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.
-
-2004-10-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-tab-line): Replace "%" with "%%" in
-	w3m-tab-line-format.
-
-2004-10-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-retrieve): Add autoload cookie.
-
-2004-10-03  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add the parameter
-	`ie=Shift_JIS' to Google for Japanese users.
-
-2004-09-21  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-antenna.el (w3m-about-antenna): Revert 2004-09-16 change.
-
-2004-09-16  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-antenna.el (w3m-about-antenna): Change the method to compare an
-	arrived time to a last-modified time.
-
-2004-09-07  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.
-
-
-2004-08-17  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.4.3 from emacs-w3m-1_4 branch.
-
-2004-08-15  Kazuhiro UCHIDA  <[e-mail]>
-
-	* w3m.el (w3m-remove-meta-charset-tags): Check that a content field has
-	a valid value before parsing it.
-
-2004-08-12  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.
-
-2004-08-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google.
-	Suggested by Romain Francoise <[e-mail]>.
-
-2004-08-02  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el (slanted): Rename @s to @slanted.
-
-2004-07-30  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.
-
-2004-07-20  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el: Support @s.
-
-
-2004-07-14  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.
-
-2004-07-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-detect-meta-charset): Check that a content field has a
-	valid value before parsing it.
-
-2004-07-08  ARISAWA Akihiro  <[e-mail]>
-	Suggested by Tatsuya Kinoshita <[e-mail]>
-
-	* w3m.el (w3m-correct-charset-alist): Reverse "windows-125x" and
-	"cp125x".
-
-
-2004-07-07  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.4.1 from emacs-w3m-1_4 branch.
-
-2004-07-06  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.
-
-2004-06-28  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.
-
-2004-06-25  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'.
-
-2004-06-24  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.
-
-2004-06-14  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3m.el (TopLevel): Display meaningful message when w3m-command is
-	nil.
-
-2004-06-21  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-fontify): Call `w3m-replace-symbol' before
-	`w3m-fontify-anchors' in order not to lose text properties.
-
-2004-06-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m): Run w3m-mode before popping to the newly created buffer
-	up.
-
-2004-06-12  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.
-
-2004-06-11  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.
-
-2004-06-08  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.
-
-2004-06-07  Masatake YAMATO  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-store-position): Fix a wrong message.
-
-2004-06-07  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-rules): Relax the condition.
-
-2004-06-07  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.
-
-2004-06-04  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.
-
-2004-06-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el (w3m-popup-buffer): Don't use focus-frame in Emacs.
-
-2004-06-01  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.
-
-2004-05-24  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-form.el (w3m-form-put-by-name): Overwrite ID value when a name is
-	found.
-
-2004-05-22  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-fontify): Remove tags in the form element except for
-	textarea.
-
-2004-05-18  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.
-
-2004-05-18  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-w3m-view-inline-image): Bind mew-use-text/html as t.
-
-2004-05-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-home-page): Improve the customizing widget.
-
-2004-05-13  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-expand-url): Bind file-name-handler-alist as nil.
-
-2004-05-13  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.
-
-2004-05-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-rules): Update its default value and its
-	customize spec.
-
-2004-05-12  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.
-
-2004-05-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-dump-extra): Check only 300 bytes at the top of the
-	data.
-
-2004-05-12  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.
-
-2004-05-11  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.
-
-2004-05-11  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-copy-buffer): Prefer cached contents without checking
-	their validity.
-
-2004-05-01  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.
-
-2004-04-30  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (emacs-w3m-version): Reset.
-
-
-2004-04-29  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.
-
-2004-04-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-generate-xemacs-load-file): Replace
-	`replace-string' with basic functions.
-
-2004-04-28  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3mhack.el (w3mhack-generate-xemacs-load-file): New function.
-	(w3mhack-make-package): Use `w3mhack-generate-xemacs-load-file.
-
-2004-04-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-update-files-autoloads): New function.
-	(w3mhack-generate-load-file): Use `w3mhack-update-files-autoloads'.
-
-2004-04-28  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.
-
-2004-04-28  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.
-
-2004-04-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-generate-load-file): Save w3m-load.el file before
-	performing `update-file-autoloads'.
-
-2004-04-27  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (install-lisp): Do not install w3mhack.el.
-	(install-package): Install neither w3mhack.el nor w3m-load.el.
-
-2004-04-27  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.
-
-2004-04-27  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.
-
-2004-04-25  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-expand-path-name): In Emacs, don't bind
-	directory-sep-char which is an obsolete variable.
-
-2004-04-24  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.
-
-2004-04-23  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).
-
-2004-04-22  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).
-
-2004-04-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-use-symbol): Don't activate it in Emacs 20.  Advised by
-	Arisawa-san.
-
-2004-04-21  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.
-
-2004-04-21  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).
-
-2004-04-20  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'.
-
-2004-04-19  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.
-
-2004-04-16  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.
-
-2004-04-15  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-link-numbering.el (w3m-link-numbering): Quit when links have
-	already been numbered.
-
-2004-04-14  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-link-numbering.el (w3m-link-numbering-mode): Delete all overlays
-	that display link numbers, when deactivating.
-
-2004-04-14  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).
-
-2004-04-14  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-link-numbering.el (w3m-link-numbering-face): New face.
-	(w3m-link-numbering): Use it.
-
-2004-04-14  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-link-numbering.el: New file.
-
-	* w3m.el (w3m-browse-url): Load `browse-url' before calling
-	`browse-url-interactive-arg'.
-
-2004-04-12  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el: Support @indicateurl, @LaTeX, @ordf, @ordm.  @url
-	is now a synonym for @uref.
-
-2004-04-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): No need to enable evaporation of
-	overlays in XEmacs.
-
-2004-04-08  Hiroya Murata  <[e-mail]>
-
-	* w3m.el (w3m-delete-all-overlays): Revert.
-	(w3m-highlight-current-anchor): Ditto.
-
-2004-04-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-delete-all-overlays): Remove.
-
-2004-04-07  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.
-
-2004-04-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-rendering-extract-title): Remove too much whitespace.
-
-2004-04-05  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.
-
-2004-04-04  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Improve custom.
-
-2004-04-04  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add "amazon" entry.
-
-2004-03-31  Yuya Nishida  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Add "amazon-ja" entry;
-	"PostData" can be specified.
-	(w3m-search): Support post-data.
-
-2004-04-04  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.
-
-2004-03-22  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-type): Check if w3m-compile-options contains "m17n".
-
-2004-03-19  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'.
-
-2004-03-14  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-symbol.el (w3m-mule-unicode-symbol): Fixed 32th character.
-	Thanks to Taichi KAWABATA for his report.
-
-2004-03-06  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.
-
-2004-03-01  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'.
-
-
-2004-02-27  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (emacs-w3m-version): Release 1.3.85.
-
-2004-02-27  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.
-
-2004-02-27  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-form.el (w3m-form-mee-new): Use `w3m-form-normalize-action' for
-	action.
-
-2004-02-26  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.
-
-2004-02-25  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-form.el (w3m-form-make-form-data): Align form by the number of
-	`hseq'.
-
-2004-02-24  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.
-
-2004-02-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-antenna.el (w3m-antenna-function): New widget.
-	(w3m-antenna-sites): Use it.
-
-2004-02-20  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.
-
-2004-02-20  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.
-
-2004-02-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el (widget-default-get): Advise the function to fix a bug in
-	Emacs 21.1 through 21.3.
-
-2004-02-17  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-resume): Fix for checkbox.
-
-2004-02-11  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el: Support @docbook, @ifdocbook, @ifnotdocbook, and
-	@registeredsymbol.
-
-2004-02-10  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.
-
-2004-02-10  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.
-
-2004-02-09  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'.
-
-2004-02-07  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.
-
-2004-02-05  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-show-error-information): Decode cache contents if
-	necessary.
-
-2004-02-05  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-edit-url): Define as a command.
-
-2004-02-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-examine-modules): Exclude w3m-e22.el except for
-	Emacs 22.
-
-2004-01-31  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.
-
-2004-01-30  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.
-
-2004-01-29  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.
-
-2004-01-28  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (tarball): Because Emacs-22 has not been released, remove
-	w3m-e22.el from the creating tarball.
-
-2004-01-27  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.
-
-2004-01-26  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.
-
-2004-01-24  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'.
-
-2004-01-23  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.
-
-2004-01-23  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).
-
-2004-01-22  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-input-url): Add "http://" to its return value, when its
-	return value contains no scheme part.
-
-2004-01-18  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.
-
-2004-01-11  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'.
-
-2004-01-09  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'.
-
-2004-01-07  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'.
-
-2004-01-05  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.
-
-2004-01-04  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'.
-
-2004-01-04  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.
-
-2004-01-03  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.
-
-2003-12-30  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.
-
-2003-12-26  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.
-
-2003-12-26  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.
-
-
-2003-12-26  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (emacs-w3m-version): Release 1.3.80.
-
-2003-12-22  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.
-
-2003-12-21  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.
-
-2003-12-19  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.
-
-2003-12-19  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.
-
-2003-12-19  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-w3m-view-inline-image): Fix last change.
-
-2003-12-18  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.
-
-2003-12-18  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.
-
-2003-12-13  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.
-
-2003-12-12  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'.
-
-2003-12-11  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.
-
-2003-12-11  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.
-
-2003-12-10  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.
-
-2003-12-10  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.
-
-2003-12-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (w3m-xmas-run-at-time): New function.
-
-	* w3m.el (w3m-refresh-at-time): Use it.
-
-2003-12-04  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-view-this-url-new-session): Abolish the optional arg.
-	(w3m-mouse-view-this-url-new-session): Ditto.
-
-2003-12-03  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-buffer-setup): Use `defun' instead of `defsubst'.
-
-2003-12-02  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.
-
-2003-11-28  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.
-
-2003-11-27  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.
-
-2003-11-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-favicon.el (w3m-favicon-convert): Make sure data of the ico type
-	contains the correct magic numbers.
-
-2003-11-27  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.
-
-2003-11-27  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.
-
-2003-11-27  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.
-
-2003-11-26  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-message): Silent when the cursor is in minibuffer.
-
-	* w3m-util.el (w3m-display-message): Ditto.
-
-2003-11-26  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.
-
-2003-11-25  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.
-
-2003-11-25  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.
-
-2003-11-25  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'.
-
-2003-11-24  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-wait-process): Don't specify 3 args to
-	`sit-for' for XEmacs.
-
-2003-11-24  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.
-
-2003-11-21  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.
-
-2003-11-21  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.
-
-2003-11-20  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.
-
-2003-11-20  Katsumi Yamaoka  <[e-mail]>
-
-	* aclocal.m4 (AC_ADD_LOAD_PATH): Refine the help message for the
-	--with-attic option.
-
-2003-11-19  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.
-
-2003-11-18  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.
-
-2003-11-18  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.
-
-2003-11-18  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.
-
-2003-11-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Make `w3m-local-find-file-function' don't
-	handle directories.
-
-2003-11-17  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.
-
-2003-11-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-horizontal-scroll-division): Mega doc fix; eliminate
-	illegal values.
-	(w3m-horizontal-on-screen): Rearrange.
-
-2003-11-14  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'.
-
-2003-11-14  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).
-
-2003-11-14  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.
-
-2003-11-12  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.
-
-2003-11-11  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.
-
-2003-11-10  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'.
-
-2003-11-09  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.
-
-2003-11-08  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.
-
-2003-11-07  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.
-
-2003-11-06  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'.
-
-2003-11-07  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.
-
-2003-11-06  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.
-
-2003-11-06  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.
-
-2003-11-06  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'.
-
-2003-11-06  Katsumi Yamaoka  <[e-mail]>
-
-	* attic/vm-w3m.el: New file.
-
-2003-11-05  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.
-
-2003-11-05  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'
-
-2003-11-04  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.
-
-2003-11-04  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.
-
-2003-10-31  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-backward): Return the current history if the
-	number zero is given as an argument.
-
-2003-10-29  OHASHI Akira  <[e-mail]>
-
-	* w3m.el (w3m-process-connection-type): Set t when system is darwin
-	version 7.0.0 or later.
-
-2003-10-28  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.
-
-2003-10-23  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'.
-
-2003-10-23  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el: Revive `w3m-initial-frame' throughout.
-	(w3m-delete-frame-maybe): Revert 2003-10-20 change.
-
-2003-10-22  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.
-
-2003-10-21  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.
-
-2003-10-20  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.
-
-2003-10-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el: Abolish `w3m-initial-frame' throughout.
-	(w3m-delete-frame-maybe): Simplify.
-
-2003-10-19  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.
-
-2003-10-14  Jose A. Ortega Ruiz  <[e-mail]>
-
-	* w3m.el (w3m-decode-entities-string): Move `save-match-data' to the
-	exterior of `with-temp-buffer'.
-
-2003-10-08  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.
-
-2003-10-08  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'.
-
-2003-10-08  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.
-
-2003-10-07  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-and-fontify): Fix for textarea on w3mmee.
-
-2003-10-07  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.
-
-2003-10-06  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.
-
-2003-10-06  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.
-
-2003-10-05  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.
-
-2003-10-04  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-tab-line): Fix the logic determining whether to
-	display favicon.
-
-2003-10-03  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.
-
-2003-10-03  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'.
-
-2003-10-03  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-filter): Relax the regular expression to
-	detect progress status.
-
-2003-10-02  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.
-
-2003-10-02  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-filter): Check return value of
-	`w3m-process-handler-parent-buffer' to move current buffer safely.
-
-2003-10-02  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.
-
-2003-10-02  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.
-
-2003-10-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-start-after): Make sure the value for
-	`w3m-current-buffer' is non-nil.
-
-2003-10-02  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.
-
-2003-10-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (w3m-make-spinner-image): Make sure the gifsicle program
-	is available.
-
-2003-09-30  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-use-symbol): Use `w3m-mule-unicode-p'.
-
-	* w3m-symbol.el (w3m-mule-unicode-symbol): Ditto.
-
-2003-09-30  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.
-
-2003-09-30  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.
-
-2003-09-29  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-symbol.el (w3m-mule-unicode-symbol): Fix customization type.
-
-2003-09-29  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'.
-
-2003-09-29  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-tab-line-format, w3m-tab-line-timer, w3m-tab-line):
-	Remove the timer operation temporally.
-
-2003-09-26  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-xmas.el (w3m-make-spinner-image): Bind `format-alist' to nil.
-
-2003-09-26  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'.
-
-2003-09-25  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.
-
-2003-09-25  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.
-
-2003-09-24  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.
-
-2003-09-24  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'.
-
-2003-09-23  OHASHI Akira  <[e-mail]>
-
-	* w3m.el (w3m-process-connection-type): Set nil when system-type is
-	darwin.
-
-2003-09-22  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'.
-
-2003-09-22  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.
-
-2003-09-21  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-open-all-links-in-new-session): Don't use
-	`w3m-select-buffer'.
-
-2003-09-21  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.
-
-2003-09-20  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-favicon.el: Bind some external variables when compiling.
-
-2003-09-19  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-make-form-data): Insert "--" before the
-	multipart post boundary.
-
-2003-09-19  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'
-
-2003-09-19  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.
-
-2003-09-19  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.
-
-2003-09-18  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.
-
-2003-09-17  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.
-
-2003-09-17  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.
-
-2003-09-16  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.
-
-2003-09-16  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.
-
-2003-09-12  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.
-
-2003-09-02  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.
-
-2003-08-29  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.
-
-2003-08-25  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.
-
-2003-08-25  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.
-
-2003-08-15  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'.
-
-2003-08-14  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.
-
-2003-08-13  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'.
-
-2003-08-12  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.
-
-2003-08-12  ARISAWA Akihiro  <[e-mail]>
-
-	* Makefile.in (what-where): Add space to avoid error on Solaris.
-
-	* w3m-namazu.el (w3m-about-namazu): Fix last change.
-
-2003-08-11  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.
-
-2003-08-10  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-namazu.el (w3m-about-namazu): Fixed problem when further links
-	contain "&amp;".
-
-2003-08-07  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.
-
-2003-08-08  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.
-
-2003-07-30  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decode-entities): Don't trust in the `match-data' after
-	the `w3m-entity-value' function is performed.
-
-2003-07-29  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.
-
-2003-07-28  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.
-
-2003-07-27  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-accept-japanese-characters): Checked loosely.
-
-2003-07-27  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].
-
-2003-07-25  Katsumi Yamaoka  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-display-inline-images): Improve the customizing
-	widget.
-
-2003-07-25  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.
-
-2003-07-25  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-generate-shimbun-servers-file): Exclude rss.
-
-2003-07-25  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.
-
-2003-07-24  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-output-coding-system): Changed condition to use utf-8
-	with w3m-m17n.
-	(w3m-halfdump-command-arguments): Ditto.
-
-2003-07-24  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-and-fontify): Fix for the pages in which
-	form_int appears after input_alt.
-
-2003-07-23  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Force texinfmt.elc to load texinfo.elc
-	from the correct place.  <cf. [emacs-w3m:05573]>
-
-2003-07-19  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-e21.el (w3m-euc-japan-encoder): Fixed comment.
-
-
-2003-07-18  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.3.6 from emacs-w3m-1_3 branch.
-
-2003-07-18  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.
-
-2003-07-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-examine-modules): Ignore w3m-ccl.el when XEmacs
-	doesn't provide the mule feature.
-
-2003-07-17  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'.
-
-2003-07-17  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.
-
-2003-07-17  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.
-
-2003-07-17  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'.
-
-2003-07-17  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-about-db-history): Call `w3m-arrived-time' with string.
-
-2003-07-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-uri-replace-alist): Improve the customizing widget.
-
-2003-07-16  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-copy-buffer): Fix the logical error installed by the last
-	change at 2003-07-15.
-
-2003-07-15  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.
-
-2003-07-10  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.
-
-2003-07-09  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-decoder-alist): Simplified.
-
-2003-07-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decoder-alist): Look for the newest inflate command.
-
-2003-07-09  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.
-
-2003-07-09  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.
-
-
-2003-07-05  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.3.5 from emacs-w3m-1_3 branch.
-
-2003-07-04  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'.
-
-2003-07-03  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'.
-
-2003-07-03  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.
-
-2003-07-02  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.
-
-2003-07-01  TAKAHASHI Kaoru  <[e-mail]>
-
-	* doc/ptexinfmt.el: @verb, @tie, @/ support.
-	(ptexinfmt-broken-facility): Abolish NO-NOTICE argument.  Use
-	`ptexinfmt-disable-broken-notice-flag' instead.
-
-2003-07-01  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-mime-text/html-w3m): Add CHARSET argument of
-	`w3m-region' when no w3m-m17n.
-
-2003-07-01  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-preview-text/html): Call `w3m-region' with
-	`charset' option.
-
-2003-07-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Use `w3m-url-strip-fragment' instead of
-	`w3m-base-url' for local files.
-
-2003-07-01  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.
-
-2003-06-30  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.
-
-2003-06-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Include other files first.
-
-2003-06-23  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-shimbun-modules-using-rss): Don't use
-	`with-temp-buffer'.
-
-2003-06-22  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3mhack.el (w3mhack-shimbun-modules-using-rss): New function.
-	(w3mhack-examine-modules): Call the above instead of a literal list.
-
-2003-06-20  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".
-
-2003-06-19  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'.
-
-2003-06-18  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): Do not encode fragment parts.
-
-2003-06-18  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-examine-modules): Ignore the shimbun modules
-	which need xml.el if it is not available.
-
-2003-06-18  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Improve the last change.
-
-
-2003-06-18  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.3.4 from emacs-w3m-1_3 branch.
-
-2003-06-18  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'.
-
-2003-06-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Encode messages to terminal while
-	formatting info pages.
-
-2003-06-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Improve the regexp to extract
-	content-types.
-
-2003-06-08  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-and-fontify): Apply
-	`w3m-decode-anchor-string' to the form action url.
-
-2003-06-05  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.
-
-2003-05-30  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'.
-
-2003-05-29  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (DOCS): FAQ, FAQ.ja, README.namazu.ja, README.shimbun.ja,
-	TIPS and TIPS.ja are merged into Info.
-
-2003-05-29  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.
-
-2003-05-28  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'.
-
-2003-05-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (byte-optimizer for match-string-no-properties): `lenght'
-	-> `length'.
-
-2003-05-27  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.
-
-2003-05-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-highlight-current-anchor): Don't infloop even if a w3m
-	buffer is narrowed.
-
-2003-05-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-make-package): Make it work under non-Mule
-	XEmacs.
-
-2003-05-19  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'.
-
-2003-05-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (Top): Use w3m-treat-drive-letter for `w3m-expand-path-name'.
-
-2003-05-12  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'.
-
-2003-05-06  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.
-
-2003-04-30  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.
-
-2003-04-30  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-retrieve-and-render): Hide a exit status from an error
-	message unless `w3m-process-exit-status'.
-
-2003-04-30  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Improve and bug fix the find-file code.
-
-2003-04-16  Chihiro Kuroda  <[e-mail]>
-
-	* w3m.el (w3m-download): Download a directory url to index.html
-	(by default) instead of signaling an error.
-
-2003-04-11  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.
-
-2003-04-04  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.
-
-2003-03-26  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.
-
-2003-03-07  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.
-
-2003-03-03  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'.
-
-2003-02-28  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'
-
-2003-02-27  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.
-
-2003-02-26  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'.
-
-2003-02-26  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Allow imperfect Status-Line like no
-	Reason-Phrase. Guard broken header like no location field.
-
-2003-02-25  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-util.el (w3m-url-local-p): Use `\`' instead of `^'.
-
-2003-02-21  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-local-dirlist-cgi): Treat a `local cookie file', again.
-
-2003-02-16  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-type): Support "release candidate" of w3m.
-
-2003-02-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (w3m-insert-image): Use `map-extents' instead of
-	`extent-at' repeatedly.
-	(w3m-remove-image): Ditto.
-
-2003-02-05  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-form.el (w3m-form-submit): Remove `!CURRENT_URL!' from action
-	tag.
-
-2003-02-04  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.
-
-2003-02-04  Yoichi NAKAYAMA  <[e-mail]>
-	Katsumi Yamaoka <[e-mail]>
-
-	* w3mhack.el (w3mhack-generate-shimbun-servers-file): New function.
-	(TopLevel): Call it.
-
-2003-02-04  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3mhack.el (shimbun-servers-file): New constant.
-
-2003-02-04  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-mode): Bind `auto-hscroll-mode' for Emacs-21.3.
-
-2003-01-30  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.
-
-2003-01-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (top): Move the last addition (modifying the value for
-	`shell-file-name') just after loading `cl'.
-
-2003-01-28  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3mhack.el (top): Set `cmdproxy.exe' to `shell-file-name' when Win32
-	environment.
-
-2003-01-28  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-local-dirlist-cgi): Treat a `local cookie file'.
-
-2003-01-27  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-ucs.el (w3m-ucs-to-char): Guard error for Mule-UCS 0.85.
-
-2003-01-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-byte-optimize-letX): Add `pathname-coding-system'
-	to be removed from `let' bindings.
-
-2003-01-26  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.
-
-2003-01-24  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-makeinfo): Withdraw the change of 2003-01-09.
-
-2003-01-24  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3mhack.el (w3mhack-examine-modules, w3mhack-load-path): Check the
-	existence of Gnus for shimbun/nnshimbun.el.
-
-2003-01-21  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.
-
-2003-01-21  Masatake YAMATO  <[e-mail]>
-
-	* w3m.el (w3m-scroll-down-or-previous-url): Added doc string.
-
-2003-01-19  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (toplevel): Strict checking that buggy `w3m-time-parse-string'
-	is used.
-
-2003-01-14  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.
-
-2003-01-09  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.
-
-2003-01-07  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-w3m-ext-url-show): Use `mew-buffer-message' instead
-	of `mew-window-configure'.
-
-2003-01-06  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'.
-
-2002-12-20  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-about-db-history): Display the information of page.
-
-2002-12-19  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-local-dirlist-cgi): Treat a local cookie.
-
-2002-12-18  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'.
-
-2002-12-17  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-type): Suppert `stable version notation' of w3m-m17n.
-
-2002-12-12  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.
-
-2002-12-07  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-text-chop): Added nil check.
-
-2002-12-06  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-what-where): Don't say [-ja] especially.
-
-2002-12-03  Katsumi Yamaoka  <[e-mail]>
-
-	* doc/ptexinfmt.el: Modify it not to use APEL functions.
-
-	* w3mhack.el (w3mhack-makeinfo): Remove last temporal mod.
-
-2002-12-02  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.
-
-2002-12-02  ARISAWA Akihiro  <[e-mail]>
-
-	* doc/Makefile.in: Remove GNU make things.
-
-2002-12-02  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.
-
-2002-11-29  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.
-
-2002-11-29  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* doc/Makefile.in (clean): Fix target.
-
-2002-11-29  ARISAWA Akihiro  <[e-mail]>
-
-	* w3mhack.el (w3mhack-nonunix-install): Create parent directories.
-
-2002-11-28  Katsumi Yamaoka  <[e-mail]>
-
-	* doc/texinfo.tex: Replaced with the latest version.
-
-2002-11-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-header-line-map): Prevent tool-bar from being doubled
-	under Emacs 21.
-
-2002-11-28  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.
-
-2002-11-28  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.
-
-2002-11-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Specify coding-system for
-	the waei and kokugo entries.  Suggested by Hideyuki SHIRAI.
-
-2002-11-27  Katsumi Yamaoka  <[e-mail]>
-
-	* doc/emacs-w3m-en.texi, emacs-w3m-en.texi: Convert to GFDL.
-
-2002-11-27  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:
-
-2002-11-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-tabmenu.el (w3m-tab-menubar-update): Do nothing when there's no
-	menubar.
-
-2002-11-18  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.
-
-2002-11-17  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-mime-text/html-w3m): Use `match-string-no-properties'
-	if it exist.
-
-2002-11-15  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.
-
-2002-11-14  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Bind `case-fold-search' to t.
-
-2002-11-14  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.
-
-2002-11-12  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.
-
-2002-11-08  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.
-
-2002-11-06  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.
-
-2002-11-06  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-fontify-textareas): Replace textarea string only
-	when form data contains non-nil data.
-
-2002-11-05  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.
-
-2002-11-05  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.
-
-2002-11-03  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.
-
-2002-11-02  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.
-
-2002-11-01  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'.
-
-2002-10-30  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3mhack.el (w3mhack-generate-colon-keywords-file): Protect against
-	unexpected data structure.
-
-2002-10-28  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Remove workaround for servers which do
-	not support HEAD operations.
-
-
-2002-10-25  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.3.3 from emacs-w3m-1_3 branch.
-
-2002-10-25  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (find-charset): Alias to ignore if no-Mule.
-
-2002-10-25  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'.
-
-2002-10-25  Masayuki Ataka  <[e-mail]>
-
-	* w3m.el (w3m-entity-alist): Support all entities using Mule-UCS.
-
-2002-10-24  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.
-
-2002-10-23  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'.
-
-2002-10-23  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.
-
-2002-10-22  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.
-
-2002-10-22  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'.
-
-2002-10-22  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.
-
-2002-10-22  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.
-
-2002-10-22  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.
-
-2002-10-22  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'.
-
-2002-10-21  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e19.el: Cancel last change for providing the base64 codec.
-
-2002-10-21  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.
-
-2002-10-21  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.
-
-2002-10-21  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Process 'about://group/...'.
-
-	* w3m-bookmark.el (w3m-bookmark-add-current-url-group): New function.
-
-2002-10-21  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.
-
-2002-10-19  Masayuki Ataka  <[e-mail]>
-
-	* w3m.el (w3m-entity-alist): Support Greek.
-
-2002-10-20  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Display a help message to stop asynchronous
-	process.
-
-2002-10-18  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.
-
-2002-10-17  ARISAWA Akihiro  <[e-mail]>
-
-	* icons/db-history-up.xpm: Add missing comma.
-
-2002-07-19  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.
-
-2002-10-17  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-e21.el (w3m-buffer-favicon): Bind local null handler with
-	`w3m-process-with-null-handler' instead of `lexical-let'.
-
-2002-10-16  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-push, w3m-process-start): Fix last change.
-
-2002-10-16  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.
-
-2002-10-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-emacs-w3m-icon): Use helvetica-bold to widen image.
-
-2002-10-15  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.
-
-2002-10-15  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.
-
-2002-10-13  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.
-
-2002-10-12  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.
-
-2002-10-10  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.
-
-2002-10-08  MIYOSHI Masanori  <[e-mail]>
-
-	* README.shimbun.ja: Add notice that f1express requires Mule-UCS.
-
-	* README.shimbun.ja: Ditto.
-
-2002-10-04  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).
-
-2002-10-03  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.
-
-2002-10-03  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.
-
-2002-10-02  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.
-
-2002-10-01  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.
-
-2002-10-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-server-regexp): Fix the value; translate
-	the comment into English.
-
-2002-10-01  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.
-
-2002-09-30  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.
-
-2002-09-21  Kahlil HODGSON  <[e-mail]>
-
-	* w3m.el (ffap-url-regexp): Make sure it is non-nil.
-
-2002-09-27  Katsumi Yamaoka  <[e-mail]>
-	Follow the change in Gnus.
-
-	* mime-w3m.el (mime-w3m-mode-ignored-keys): New variable.
-	(mime-w3m-setup): Use it.
-
-2002-09-27  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.
-
-2002-09-25  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.
-
-2002-09-25  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.
-
-2002-09-24  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.
-
-2002-09-22  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-mode): Fix typo in its docstring.
-
-2002-09-20  Kahlil HODGSON  <[e-mail]>
-
-	* w3m.el (w3m-fontify-bold): Permit class attributes, newlines or
-	whitespaces in the tag.
-	(w3m-fontify-underline): Ditto.
-
-2002-09-18  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'.
-
-2002-09-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-rules): Add 'assahi shimbun' rule.
-	(w3m-filter-asahi-shimbun): New function.
-
-2002-09-05  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'.
-
-
-2002-09-03  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.
-
-2002-09-02  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.
-
-2002-09-02  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'.
-
-2002-09-01  Andrew M. Scott  <[e-mail]>
-
-	* w3m-weather.el (w3m-weather-default-area): Fix typo in its docstring.
-
-2002-08-30  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]>.
-
-2002-08-30  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-init-file, w3m-load-hook): New option.
-	(toplevel): Load `w3m-init-file' and run `w3m-load-hook'.
-
-2002-08-29  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el: Require `custom' for Emacs 19 because of the function
-	`custom-initialize-set'.
-
-2002-08-29  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'.
-
-2002-08-28  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'.
-
-2002-08-28  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.
-
-2002-08-27  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'.
-
-2002-08-27  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.
-
-2002-08-27  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (emacs-w3m-version): Reset for development series toward
-	emacs-w3m-1.4.
-
-2002-08-27  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-history): Call `w3m-db-history' instead of goto
-	`about://db-history/'.
-
-2002-08-27  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.
-
-2002-08-27  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.
-
-2002-08-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (char-after): Byte-optimize it for old Emacsen.
-	(char-before): Ditto.
-
-2002-08-23  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.
-
-2002-08-22  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (ffap-url-regexp): Fix last change.
-
-2002-08-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (ffap-url-regexp): Modify the value to make it match to nntp
-	urls.
-
-2002-08-22  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (very-slow): New rule.
-
-	* attic/addpath.el: New file.
-
-2002-08-22  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.
-
-2002-08-21  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el (w3m-display-message-enable-logging): New variable.
-	(w3m-display-message): Use it.
-
-2002-08-08  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-retrieve-1): Do not make error but return nil, even
-	if decoding is failed.
-
-2002-08-08  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.
-
-2002-07-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-ucs-to-char): Return char for tilde by default.
-
-
-2002-07-17  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.3.1 from emacs-w3m-1_3 branch.
-
-2002-07-16  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.
-
-2002-07-11  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-image-viewer): New option.
-	(w3m-content-type-alist): Refer it.
-
-2002-07-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-decoder-alist): Don't examine the existence of w3m
-	command when compiling.
-	(w3m-dirlist-cgi-program): Ditto.
-
-2002-07-09  Hironori FUJII  <[e-mail]>
-
-	* w3m.el (w3m-highlight-current-anchor): Don't infloop at the beginning
-	of a buffer.
-
-2002-07-09  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.
-
-2002-07-08  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'.
-
-2002-07-08  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.
-
-
-2002-07-07  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.3 from emacs-w3m-1_3 branch.
-
-2002-07-04  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.
-
-2002-07-03  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.
-
-2002-07-01  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.
-
-2002-06-29  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3mhack.el (w3mhack-nonunix-lispdir): New option.
-	(w3mhack-nonunix-icondir): Ditto.
-	(w3mhack-nonunix-dryrun): Ditto.
-	(w3mhack-nonunix-install): New function.
-
-2002-06-28  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (DOCS): Add `TIPS'.
-
-2002-06-26  Ando Tsutomu  <[e-mail]>
-
-	* w3m-weather.el (w3m-weather-completion-table): Fix typo.
-
-2002-06-27  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-info-like-map): Remove redundant code.
-
-2002-06-27  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.
-
-2002-06-26  Tadashi Watanabe  <[e-mail]>
-
-	* w3m.el (w3m-info-like-map): Don't use FSF Emacs style key format for
-	XEmacs.
-
-2002-06-26  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'.
-
-2002-06-25  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-use-ange-ftp): Chenged its default value to nil.
-
-2002-06-21  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-retrieve-1): Specify -no-cookie option only when the
-	w3m command is configured to accept it.
-
-2002-06-20  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.
-
-2002-05-31  Hiroya Murata  <[e-mail]>
-
-	* octet.el (octet-find-file): Bind `buffer-read-only', only while
-	calling `octet-buffer'.
-
-
-2002-06-20  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.2.8 from emacs-w3m-1_2 branch.
-
-2002-06-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-bug.el: Require `w3m-e19' for Emacs 19 to be able to compile this
-	module alone.
-
-2002-06-18  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el (w3m-search): Don't extract a default word from the
-	header line.
-
-2002-06-18  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.
-
-2002-06-13  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.
-
-2002-05-30  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.
-
-2002-06-13  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.
-
-2002-06-12  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'.
-
-2002-06-02  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.
-
-
-2002-06-03  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].
-
-2002-05-31  Mito <[e-mail]>
-
-	* w3m-weather.el (w3m-weather-completion-table): Fix "niigata-kaetsu".
-
-2002-05-30  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).
-
-2002-05-29  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-w3m-retrieve-1): Don't decode the contents when redirect.
-
-2002-05-29  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.
-
-2002-05-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (unicode-to-char): Shut XEmacs 21.5-b5 and earlier up
-	when compiling.
-
-2002-05-28  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.
-
-2002-05-16  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (tarball): Chmod 755 configure.
-
-2002-05-16  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.
-
-2002-05-15  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.
-
-2002-05-15  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.
-
-2002-05-14  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.
-
-2002-05-14  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.
-
-2002-05-13  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.
-
-2002-05-13  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.
-
-2002-05-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-add-arrived-db): Force update the page.
-
-2002-05-08  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.
-
-2002-05-07  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).
-
-2002-05-07  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.
-
-2002-04-30  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.
-
-2002-04-27  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.
-
-2002-04-26  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.
-
-2002-04-26  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.
-
-2002-04-25  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.
-
-2002-04-24  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.
-
-2002-04-24  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).
-
-2002-04-23  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.
-
-2002-04-23  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.
-
-2002-04-23  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.
-
-2002-04-23  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.
-
-2002-04-23  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.
-
-2002-04-22  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'.
-
-2002-04-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el (w3m-insert-string): Prevent doubling expansion on the
-	arg.
-
-2002-04-20  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.
-
-2002-04-20  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Set type to downcase.
-
-2002-04-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-about-header): Don't use `make-string' to make a
-	separator text under Mule.
-
-2002-04-19  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).
-
-2002-04-19  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.
-
-2002-04-19  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'.
-
-2002-04-18  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-bitmap.el (w3m-bitmap-next-line): Handle `temporary-goal-column'.
-
-2002-04-18  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-halfdump-command-arguments): Fix last change.
-
-2002-04-17  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.
-
-2002-04-17  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-halfdump-command-arguments): Add `-I e' option to w3m
-	under Japanese environment.
-
-2002-04-17  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.
-
-2002-04-16  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.
-
-2002-04-15  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'.
-
-2002-04-12  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.
-
-2002-04-12  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.
-
-2002-04-12  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.
-
-2002-04-10  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.
-
-2002-04-10  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-image.el (w3m-imagick-convert-async-exec): Change default value
-	for Meadow.
-
-2002-04-10  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.
-
-2002-04-10  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.
-
-2002-04-10  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'.
-
-2002-04-10  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.
-
-2002-04-10  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).
-
-2002-04-10  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3mhack.el (w3mhack-examine-modules): Reverse the turn of the load
-	with `bitmap' and `un-define'.
-
-2002-04-09  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'.
-
-2002-04-09  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.
-
-2002-04-09  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.
-
-2002-04-09  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.
-
-2002-04-09  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.
-
-2002-04-08  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-coding-system): Change default value to
-	'iso-2022-7bit-ss2 when use w3mmee under mule environment.
-
-2002-04-08  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-xmas.el (w3m-create-image): Resize gif images, too.
-
-2002-04-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (w3m-make-glyph): Remove unused var.
-
-2002-04-08  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.
-
-2002-04-08  Taiki SUGAWARA  <[e-mail]>
-
-	* w3m-e20.el (w3m-bitmap-image-insert-internal): Begin the overlay on
-	`begion-of-line'.
-
-2002-04-08  Yuuichi Teranishi  <[e-mail]>
-
-	* octet.el: Update URL for xlhtml.
-
-2002-04-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el: Don't require `pcustom'.
-
-2002-04-08  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.
-
-2002-04-08  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.
-
-2002-04-05  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.
-
-2002-04-05  Taiki SUGAWARA  <[e-mail]>
-
-	* w3m-e20.el (w3m-bitmap-image-insert): Fix (point) -> pos.
-
-2002-04-04  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.
-
-2002-04-04  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'.
-
-2002-04-04  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): Set default icon type as ico.
-
-	* w3m-e21.el (w3m-buffer-favicon): Asynchronous implementation.
-
-2002-04-04  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.
-
-2002-04-04  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).
-
-2002-04-04  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.
-
-2002-04-03  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-fontify): Put invisible and intangible properties at the
-	duplicated empty lines instead of delete them.
-
-2002-04-03  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.
-
-2002-04-03  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-check-link-tags): Relax the pattern to detect headers.
-
-2002-04-02  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.
-
-2002-04-01  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.
-
-2002-04-01  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.
-
-2002-03-29  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.
-
-2002-03-28  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.
-
-2002-03-28  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.
-
-2002-03-27  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.
-
-2002-03-26  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'.
-
-2002-03-24  Nix  <[e-mail]>
-
-	* w3m-xmas.el (w3m-detect-coding-with-priority): New macro, handle
-	non-MULE XEmacsen.
-	(w3m-detect-coding-region): Use it.
-
-2002-03-26  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-cookie.el (w3m-cookie-1-set): Fixed problem when no `Expires',
-	ignore is ignored.
-
-2002-03-26  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'.
-
-2002-03-26  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.
-
-2002-03-26  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-cookie.el (w3m-cookie-save): Use `w3m-time-newer-p' instead of
-	`w3m-time-lapse-seconds'.
-
-2002-03-26  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.
-
-2002-03-25  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.
-
-2002-03-25  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-cookie.el (w3m-cookie-file): Changed default value.
-	(w3m-cookie-save): Follow the above change.
-	(w3m-cookie-load): Ditto.
-
-2002-03-25  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.
-
-2002-03-24  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'.
-
-2002-03-24  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-decode-encoded-contents): Convert encoding to lower case
-	before checking alist.
-
-2002-03-24  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.
-
-2002-03-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Ignore trailing whitespaces in header
-	lines.
-
-2002-03-20  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.
-
-2002-03-20  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".
-
-2002-03-19  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Ignore `w3m-document-charset' when
-	w3m-m17n.
-
-2002-03-19  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.
-
-2002-03-18  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.
-
-2002-03-18  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.
-
-2002-03-16  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-string-to-char-list): Fixed.
-
-2002-03-15  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.
-
-2002-03-13  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-form.el (w3m-form-resume): Typo.
-
-2002-03-13  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 "".
-
-2002-03-13  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.
-
-
-2002-03-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.2.6 from emacs-w3m-1_2 branch.
-
-2002-03-11  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-ucs.el (w3m-euc-japan-encoder): Treat japanese-jisx0208-1978 as
-	japanese-jisx0208.
-
-2002-03-11  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.
-
-2002-03-11  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.
-
-2002-03-10  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (tarball): Fix permissions.
-
-2002-03-08  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.
-
-2002-03-08  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.
-
-2002-03-08  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes) [w3mmee]: Fetch content-encoding from
-	"x-w3m-content-encoding" filed.
-
-2002-03-07  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-w3m-cid-retrieve): Return lowercase string always
-	because `w3m-image-type-alist' has lowercase keys.
-
-2002-03-07  Yoichi NAKAYAMA  <[e-mail]>
-
-	* w3m.el (w3m-lynx-like-map): Switch J and K so as to behave like w3m.
-
-2002-03-07  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.
-
-2002-03-07  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.
-
-2002-03-07  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (datadir): New variable.
-
-2002-03-06  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-proc.el (w3m-process-filter): Modify a regexp for "Password:".
-
-2002-03-06  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.
-
-2002-03-05  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (install): Install all ChangeLog files.
-	* w3mhack.el (w3mhack-make-package): List all ChangeLog files in the
-	manifest.
-
-2002-03-05  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.
-
-2002-03-04  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'.
-
-
-2002-03-02  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.2.5 from emacs-w3m-1_2 branch.
-
-2002-03-01  Yuuichi Teranishi  <[e-mail]>
-
-	* octet.el (octet-find-file): Decode even in the read-only buffer.
-
-2002-02-26  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (DOCS): Add ChangeLog.1.
-
-
-Local Variables:
-coding: iso-2022-7bit
-fill-column: 79
-indent-tabs-mode: t
-End:

--- a/share/emacs/site-lisp/w3m/ChangeLog.1	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,6731 +0,0 @@
-2002-02-25  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.
-
-2002-02-24  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.
-
-2002-02-14  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.
-
-2002-02-13  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.
-
-2002-02-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-async-exec): Default to nil under MacOS X.
-
-2002-02-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-e21.el (w3m-setup-favicon): Fix handling of
-	`w3m-about-xxxx-favicon'.
-
-2002-02-08  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.
-
-2002-02-08  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.
-
-2002-02-08  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.
-
-2002-02-08  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.
-
-2002-02-08  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.
-
-2002-02-07  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'.
-
-2002-02-07  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.
-
-2002-02-07  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.
-
-2002-02-07  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.
-
-2002-02-06  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-halfdump-command-common-arguments): Replace `frame-width'
-	with `window-width'.
-	(w3m-about-db-history): Ditto.
-
-2002-02-05  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.
-
-2002-02-05  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.
-
-2002-02-05  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.
-
-2002-02-05  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-meta-charset-content-type-regexp)
-	(w3m-meta-content-refresh-regexp): Allow broken quotation mark.
-
-2002-02-05  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-touch-file): Robust checking.
-
-2002-02-05  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-util.el (w3m-which-command): If called with `not string', return
-	nil.
-
-2002-02-05  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-touch-file-avaiable-p): New internal variable.
-	(w3m-touch-file): Check the validity of `touch' command.
-
-2002-02-05  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-touch-file): Call touch command with "-t time" instead of
-	"-d time".
-
-2002-02-05  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.
-
-2002-02-04  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.
-
-2002-02-04  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.
-
-2002-02-01  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.
-
-2002-02-01  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.
-
-2002-02-01  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.
-
-2002-02-01  Katsumi Yamaoka  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-preview-text/html): Bind `w3m-force-redisplay'
-	with nil.
-
-2002-02-01  Yuuichi Teranishi  <[e-mail]>
-
-	* octet.el (octet-buffer): Set default of `completing-read'.
-
-2002-02-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-key-binding): Switch `w3m-mode-map', `mime-w3m-mode-map'
-	and `mm-w3m-mode-map' when customizing.
-
-2002-01-31  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.
-
-2002-01-31  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.
-
-2002-01-31  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-search.el (w3m-search-word-at-point): New option.
-	(w3m-search): Refer `w3m-search-word-at-point'.
-
-2002-01-31  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.
-
-2002-01-30  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.
-
-2002-01-29  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'.
-
-2002-01-29  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.
-
-2002-01-29  Yuuichi Teranishi  <[e-mail]>
-
-	* w3mhack.el (w3mhack-examine-modules): Add octet.el to the module list
-	if FLIM is installed.
-
-	* octet.el: New file.
-
-2002-01-25  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-highlight-current-anchor): Don't search for the anchor
-	points which are out of sight.
-
-2002-01-25  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.
-
-2002-01-25  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.
-
-2002-01-18  OHASHI Akira  <[e-mail]>
-
-	* w3m.el (w3m-header-line-map): Inherit `w3m-mode-map'.
-
-2002-01-15  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-e21.el (w3m-setup-favicon): Reversed the condition that decide
-	whether favicons are used.
-
-2002-01-15  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'.
-
-2002-01-12  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.
-
-2002-01-11  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-read-file-name): Remove an optional argument
-	`initial'. Call `read-file-name' without `default' option.
-
-2002-01-11  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'.
-
-2002-01-11  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-region): Process <base> tag.
-
-2002-01-09  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'.
-
-
-2002-01-08  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.2.4 from emacs-w3m-1_2 branch.
-
-2002-01-08  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'.
-
-2002-01-08  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.
-
-2002-01-08  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.
-
-2002-01-07  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.
-
-2002-01-07  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'.
-
-2002-01-07  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.
-
-2002-01-07  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.
-
-2002-01-05  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]>
-
-2001-12-31  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.
-
-2001-12-30  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-url-to-file-name): Fix its regexp.
-
-2001-12-30  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-print-this-url): Display a message when it is called
-	interactively.
-
-2001-12-29  OHASHI Akira  <[e-mail]>
-
-	* w3m.el (w3m-print-this-url): Don't print any messages when there is
-	no url or form under point.
-
-2001-12-29  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.
-
-2001-12-26  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'.
-
-2001-12-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-util.el: Autoload "timer" for the function `cancel-timer' when
-	Mule 2 is running.
-
-2001-12-26  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.
-
-2001-12-25  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'.
-
-2001-12-24  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-dump-head-source-command-arguments) [w3mmee]: Support
-	`w3m-accept-languages'.
-
-
-2001-12-21  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.2.3 from emacs-w3m-1_2 branch.
-
-2001-12-21  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.
-
-2001-12-21  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".
-
-2001-11-16  OKAZAKI Tetsurou <[e-mail]>
-
-	* w3m.el (w3m-type): Use "w3m-m17n" if exists.
-
-2001-12-21  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'.
-
-2001-12-20  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.
-
-2001-12-19  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.
-
-2001-12-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-imagick-convert-buffer): Don't growl errors when
-	Emacs is running in the batch mode.
-
-2001-12-18  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.
-
-2001-12-17  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-e21-toolbar-configurations): Replace
-	`auto-resize-tool-bar' to `auto-resize-tool-bars'.
-
-2001-12-17  OHASHI Akira  <[e-mail]>
-
-	* README.shimbun.ja: Add information for sb-debian-jp.el and
-	sb-debian.el.
-
-2001-12-17  Taiki SUGAWARA  <[e-mail]>
-	    TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-forms): Change the separater string for
-	option tag.
-
-2001-12-12  Taiki SUGAWARA  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-forms): If not find selected, first
-	element is made into default.
-
-2001-12-14  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-dtree.el (w3m-about-dtree): Ignore arguments on and after 4th.
-
-2001-12-14  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.
-
-2001-12-12 Kazuyoshi Koreeda <[e-mail]>
-
-	* w3m-weather.el (w3m-weather-insert-seikatu-sisu): New function.
-	(w3m-weather-get-seikatu-sisu): Ditto.
-
-2001-12-10  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-forms): Use `w3m-decode-entities-string'
-	to value in the textarea and option menu.
-
-2001-12-11  Mito  <[e-mail]>
-
-	* w3m.el (w3m-scroll-left): Modify doc-string.
-	(w3m-scroll-right): Ditto.
-
-2001-12-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-imagick-convert-usable-p): New function.
-	(w3m-use-favicon): Use it.
-
-2001-12-06  ARISAWA Akihiro  <[e-mail]>,
-	    TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-e21.el (top): Installed the check of the validity of ImageMagick.
-
-
-2001-12-06  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.2.2 from emacs-w3m-1_2 branch.
-
-2001-12-06  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.
-
-2001-12-06  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-emacs-w3m-icon): Made it interlaced and endlessly
-	animated.
-
-2001-12-06  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): When content-charset is unknown, detect
-	coding-system automatically.
-
-2001-12-04  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-e21.el (w3m-buffer-favicon): Reset `w3m-current-favicon-data' to
-	nil when conversion was failure.
-
-2001-12-04  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).
-
-2001-12-03  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-xmas.el (w3m-create-image): Bind some arguments lexically for
-	w3m-fix-gif().
-
-2001-12-04  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.
-
-2001-12-03  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-modeline-process-status-on): Modify default value.
-	(w3m-buffer-setup): Simplified `mode-line-buffer-identification'.
-
-2001-11-29  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.
-
-2001-11-28  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.
-
-2001-11-27  Yoichi NAKAYAMA  <[e-mail]>
-
-	* TIPS: New file.
-
-2001-11-27  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-download-this-url): Fix a problem of broken URL.
-
-2001-11-22  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (top, w3m-about): Change the URL of w3m's official page.
-
-2001-11-21  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'.
-
-2001-11-21  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'.
-
-2001-11-20  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'.
-
-2001-11-19  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.
-
-2001-11-19  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.
-
-2001-11-19  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'.
-
-2001-11-19  Kazuhiko  <[e-mail]>
-
-	* w3m-xmas.el (w3m-create-image): Fix a problem in handling XBM on
-	XEmacs.
-
-2001-11-18  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.
-
-2001-11-16  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.
-
-2001-11-16  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.
-
-2001-11-16  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'.
-
-2001-11-16  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.
-
-2001-11-16  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'.
-
-2001-11-15  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-search.el: Require `cl' when compiling.
-
-2001-11-15  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.
-
-2001-11-15  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.
-
-2001-11-15  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.
-
-2001-11-14  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'.
-
-2001-11-14  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.
-
-2001-11-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-parse-attributes): Moved it again to w3m-macro.el.
-	* w3m-macro.el: The opposite of above.
-
-2001-11-14  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.
-
-2001-11-14  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.
-
-2001-11-14  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'.
-
-2001-11-14  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.
-
-2001-11-13  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-macro.el (w3m-condition-case): New macro.
-
-2001-11-13  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.
-
-2001-11-13  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'.
-
-2001-11-13  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'.
-
-2001-11-12  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.
-
-2001-11-12  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'.
-
-2001-11-12  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.
-
-
-2001-11-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.2.1 from emacs-w3m-1_2 branch.
-
-2001-11-12  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.
-
-2001-11-12  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.
-
-2001-11-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-e21.el (top): Abolished a ignore() of `w3m-use-tab'.
-
-2001-11-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-dump-head-source): Fix the problem which occurs when
-	no content is retrieved.
-
-2001-11-11  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.
-
-2001-11-10  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.
-
-2001-11-09  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.
-
-2001-11-08  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".
-
-2001-11-02  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.
-
-2001-11-08  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'.
-
-2001-11-08  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.
-
-2001-11-08  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.
-
-2001-11-08  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-current-title, w3m-current-url): Define them before
-	loading the version specific modules.
-
-2001-11-07  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'.
-
-2001-11-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-xmas.el (format-buffers-tab-line): Don't use the value of
-	`w3m-current-title' if it is nil.
-
-2001-11-07  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-exec-filter): Modify regexp pattern of "Wrong username or
-	passwd".
-
-
-2001-11-06  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.
-
-2001-11-06  Hideyuki SHIRAI  <[e-mail]>
-
-	* README.shimbun.ja (mew-shimbun.el): Modify description.
-
-2001-11-03  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.
-
-2001-11-03  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (DOCS): Add `FAQ'.
-
-2001-11-02  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.
-
-2001-11-02  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.
-
-2001-11-02  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-reload-this-page): When execute with prefix argument,
-	clear post-data certainty.
-
-2001-11-01  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.
-
-2001-11-01  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-delete-buffer): New function.
-	(w3m-copy-buffer): Call `w3m-goto-url' instead of copying buffer
-	content.
-
-2001-10-31  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-form.el (w3m-form-resume): Remove submit button status to support
-	forms containing multiple submit buttons.
-
-2001-10-31  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-accept-languages): Don't use config file if there are no
-	contents for "accept_language".
-
-2001-10-31  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.
-
-2001-10-31  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'.
-
-2001-10-31  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-reload-this-page): Change the semantic of the prefix
-	argument to `clear form and post datas'.
-
-2001-10-31  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'.
-
-2001-10-30  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.
-
-2001-10-30  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.
-
-2001-10-30  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.
-
-2001-10-30  Hideyuki SHIRAI  <[e-mail]>
-
-	* README.shimbun.ja: Add information for mew-shimbun.el
-
-2001-10-29  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.
-
-2001-10-29  ORI Manabu <[e-mail]>
-
-	* w3m.el (w3m-type): Added the expression to detect `w3m-m17n'.
-
-2001-10-29  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.
-
-2001-10-29  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-ccl-write-repeat): Avoid a byte-compile warning.
-
-2001-10-28  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.
-
-2001-10-26  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-mime-text/html-w3m): Support `Xref' header in SHIMBUN
-	article.
-
-2001-10-25  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.
-
-2001-10-25  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'.
-
-2001-10-24  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.
-
-2001-10-24  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-rendering-buffer-1): Redundant argument is removed.
-
-2001-10-24  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-view-this-url): Fixed the interactive spec.
-
-2001-10-24  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'.
-
-2001-10-23  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/.
-
-2001-10-23  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.
-
-2001-10-23  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.
-
-2001-10-22  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.
-
-2001-10-19  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.
-
-2001-10-17  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.
-
-2001-10-16  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'.
-
-2001-10-16  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.
-
-2001-10-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-use-mule-ucs): Don't use Mule-UCS package for XEmacs
-	versions prior to 21.2.37.
-
-2001-10-16  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.
-
-2001-10-15  NAKAJIMA Mikio  <[e-mail]>
-
-	* README: Add description about ftp site of FLIM.
-
-2001-10-15  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'.
-
-2001-10-15  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.
-
-2001-10-15  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-expand-url): Accept URL which has the scheme part only.
-
-2001-10-15  Akihiro Arisawa  <[e-mail]>
-
-	* w3m.el (w3m-url-components-regexp): Don't except `\' for scheme,
-	authority and path.
-
-2001-10-15  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'.
-
-2001-10-14  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.
-
-2001-10-13  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.
-
-2001-10-12  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.
-
-2001-10-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-input-url): Accept the 3rd optional argument.
-	(w3m): Improved interactive form.
-
-2001-10-12  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.
-
-2001-10-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m): Always prompts user for a URL string.
-
-2001-10-12  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.
-
-2001-10-11  Katsumi Yamaoka  <[e-mail]>
-
-	* mew-w3m.el, w3m-form.el, w3m.el: Remove useless whitespaces.
-
-2001-10-11  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-local-dirlist-cgi): Replace `re-search-forward' to
-	`search-forward'; bind `beg' as a non-global variable.
-
-2001-10-11  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-local-dirlist-cgi): Remove <from>...</form>.
-
-2001-10-11  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-expand-path-name): Fix incompatibility of drive letter.
-
-2001-10-11  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.
-
-2001-10-11  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-decoder-alist): Fix for Windows or OS/2 environments.
-
-2001-10-11  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'.
-
-2001-10-10  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'.
-
-2001-10-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-expand-url): Emergency fixed.
-
-2001-10-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-expand-url): Make it work correctly when a url begins
-	with "//".
-
-2001-10-09  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'.
-
-2001-10-05  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.
-
-2001-10-04  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-om.el (read-string): Unify the advice form.
-	(w3m-om-coding-system-alist): Fix doc-string.
-
-2001-10-04  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.
-
-2001-10-03  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.
-
-2001-10-03  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-om.el (read-string): Advise the function to allow the 4th
-	argument `default-value'.
-
-2001-10-03  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.
-
-2001-10-03  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'.
-
-2001-10-03  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.
-
-2001-10-02  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.
-
-2001-10-02  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'.
-
-2001-10-02  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'.
-
-2001-10-01  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (TopLevel): Don't byte-compile the source form to bind colon
-	keywords for old Emacsen.
-
-2001-10-01  Masatake YAMATO  <[e-mail]>
-
-	* w3m.el (w3m-mode): Added `w3m-toggle-inline-images' to the mode
-	description.
-
-2001-10-01  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.
-
-2001-10-01  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.
-
-2001-09-30  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/...'.
-
-2001-09-28  kkonishi <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): New search engines,
-	`excite-ja', `lycos-ja', `altavista' and `freebsd-users-jp'.
-
-2001-09-28  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Speed up the action to refer a name anchor in
-	the same document.
-
-2001-09-27  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'.
-
-2001-09-26  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.
-
-2001-09-26  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".
-
-2001-09-18  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'.
-
-2001-09-18  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-om.el (w3m-expand-path-name): Cancel last change.
-
-2001-09-17  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.
-
-2001-09-17  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.
-
-2001-09-17  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.
-
-2001-09-17  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'.
-
-2001-09-17  Masayuki Ataka  <[e-mail]>
-
-	* w3m-search.el (w3m-search-engine-alist): Changed default value of
-	`google-ja'.
-
-2001-09-16  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.
-
-2001-09-15  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.
-
-2001-09-15  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.
-
-2001-09-14  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'.
-
-2001-09-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-form.el (w3m-form-replace-string): Protect against the illegal
-	type of arguments.
-
-2001-09-14  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'.
-
-2001-09-14  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.
-
-2001-09-13  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.
-
-2001-09-13  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.
-
-2001-09-12  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.
-
-2001-09-12  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'.
-
-2001-09-12  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.
-
-2001-09-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-cache-available-p): New function.
-
-2001-09-12  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el, w3m.el: Don't quote colon keywords.
-
-	* Makefile.in (install): Don't install w3mkwds.el.
-
-2001-09-11  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.
-
-2001-09-11  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.
-
-2001-09-11  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.
-
-2001-09-11  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.
-
-2001-09-11  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'.
-
-2001-09-10  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-expand-url): Changed regexp for detecting absolute spec;
-	Don't use `expand-file-name'.
-
-2001-09-10  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-ucs.el (w3m-euc-japan-encoder): Simplified.
-
-2001-09-10  Akihiro Arisawa  <[e-mail]>
-
-	* w3m-ucs.el (w3m-euc-japan-encoder): Fixed for ASCII under XEmacs.
-
-2001-09-10  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.
-
-2001-09-09  ARISAWA Akihiro  <[e-mail]>
-
-	* w3m-ucs.el (w3m-euc-japan-encoder): Fixed for katakana-jisx0201.
-
-2001-09-10  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.
-
-2001-09-09  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.
-
-2001-09-09  MIYOSHI Masanori  <[e-mail]>
-
-	* README.shimbun.ja: Ditto.
-
-	* README.shimbun.ja: Ditto.
-
-2001-09-07  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.
-
-2001-09-05  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.
-
-2001-09-03  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-filter.el (w3m-filter-lwn.net): Add link information to next
-	page.
-
-2001-08-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-load-list): Retry to read a file when failed.
-
-2001-08-26  MIYOSHI Masanori  <[e-mail]>
-
-	* README.shimbun.ja: Add information on nikkansports.
-
-2001-08-24  MIYOSHI Masanori  <[e-mail]>
-
-	* README.shimbun.ja: Add information on makanai, f1fan, f1express and
-	isize-sports.
-
-2001-08-13  NAKAGAWA Takayuki  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Refer `w3m-base-url' as current url,
-	when it is available.
-
-2001-08-10  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.
-
-2001-08-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-download): Made it to work as a command.
-
-2001-08-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-fontify-images): Use `w3m-decode-anchor-string' to
-	convert "&amp;" to "&" in the url string.
-
-2001-08-10  NOMIYA Masaru  <[e-mail]>
-
-	* w3m.el (w3m-content-type-alist): Fix typos for gif and tiff.
-
-2001-08-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Put the url in the history even if `w3m-exec'
-	returns nil.
-
-2001-08-09  Shun-ichi GOTO  <[e-mail]>
-
-	* mew-w3m.el (mew-mime-text/html-w3m): Bug fix. Guess charset in cache
-	buffer.
-
-2001-08-07  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'.
-
-2001-08-07  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.
-
-2001-08-06  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.
-
-2001-08-05  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.
-
-2001-08-03  Masayuki Ataka  <[e-mail]>,
-	    TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-namazu.el (w3m-namazu): Fixed the problem which is reported in
-	[emacs-w3m:01389].
-
-2001-08-03  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-download-save-directory): Abolished.
-	(w3m-goto-ftp-url, w3m-download): Reverted.  ;; Those last changes were
-	nonsensical.
-
-2001-08-03  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'.
-
-2001-08-03  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.
-
-2001-08-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-download-save-directory): New user option.
-	(w3m-goto-ftp-url, w3m-download): Refer it.
-
-2001-08-02  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.
-
-2001-08-02  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'.
-
-2001-08-02  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.
-
-2001-08-02  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.
-
-2001-08-01  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'.
-
-2001-07-31  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.
-
-2001-07-27  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.
-
-2001-07-27  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-forms): Fixed for initial value in the
-	textarea.
-
-2001-07-27  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.
-
-2001-07-26  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.
-
-2001-07-25  NAKAGAWA Takayuki  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): Don't delete trailing whitespaces,
-	etc. from anchors.
-
-2001-07-19  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.
-
-2001-07-18  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".
-
-2001-07-18  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.
-
-2001-07-18  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.
-
-2001-07-16  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.
-
-2001-07-13  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.
-
-2001-07-13  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'.
-
-2001-07-12  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.
-
-2001-07-12  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.
-
-2001-07-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-form.el (w3m-form-parse-forms): Parse the tags only within the
-	"<form ..> ... </form>".
-
-2001-07-12  Akihiro Arisawa  <[e-mail]>
-
-	* w3m.el (w3m-remove-redundant-spaces): Don't cause an error when str
-	contains only spaces.
-
-2001-07-12  Shun-ichi GOTO  <[e-mail]>
-
-	* mew-w3m.el: Hand-over of copyright of this file from Goto to
-	Tsuchiya. This is consensual.
-
-2001-07-11  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.
-
-2001-07-11  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.
-
-2001-07-11  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m-rendering-region): Do not break matching data.
-
-2001-07-11  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.
-
-2001-07-11  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.
-
-2001-07-10  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.
-
-2001-07-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el: Bind `:bool' for old Emacsen.
-
-2001-07-10  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.
-
-2001-07-09  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.
-
-2001-07-06  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.
-
-2001-07-06  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.
-
-2001-07-05  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.
-
-2001-06-29  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-preview-text/html): Search xref in the root
-	entitiry.
-
-2001-06-25  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.
-
-2001-06-12  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'.
-
-2001-06-11  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-dump-head-source-command-argument): Its old name is
-	`w3m-dump-head-source-command-arguments'.
-
-2001-06-11  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.
-
-2001-06-10  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'.
-
-2001-06-09  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.
-
-2001-06-09  Kiyokazu SUTO  <[e-mail]>,
-	    TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-fontify-anchors): Process w3m internal tag `<_id>' which
-	represents ID properties.
-
-2001-06-08  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-retrieve): Remove URL's fragment before checking
-	cache.
-
-2001-06-08  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.
-
-2001-06-06  Kenichi OKADA  <[e-mail]>
-
-	* w3m-xmas.el: Require `path-util'.
-
-2001-06-07  NAKAJIMA Mikio <[e-mail]>
-
-	* w3m.el (w3m-exec-process): Replace `delete' with `delq'.
-
-2001-06-05  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-toolbar): Use the English language when the value of the
-	variable `current-language-environment' is not "Japanese".
-
-2001-06-04  Pavel Janik  <[e-mail]>
-
-	* w3m.el (w3m-about-db-history): Fix typo Titile -> Title.
-
-2001-06-01  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-halfdump-command-arguments): Changed default value to
-	"-dump=half-buffer" when w3m-type equal 'w3mmee.
-
-2001-05-31  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-om.el (iso-2022-7bit): New coding-system generated by copying
-	from `*iso-2022-jp*'.
-
-2001-05-31  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-coding-system): Changed default value to 'iso-2022-7bit.
-	(w3m-input-coding-system): Ditto.
-
-2001-05-31  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.
-
-2001-05-30  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.
-
-2001-05-30  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'.
-
-2001-05-29  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.
-
-2001-05-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (XEmacs): Require `byte-optimize' expressly before
-	advising the function `byte-optimize-form-code-walker'.
-
-2001-05-28  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.
-
-2001-05-28  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.
-
-2001-05-26  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.
-
-2001-05-26  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-decode-buffer): Removed reference of `w3m-coding-system'.
-
-2001-05-25  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'.
-
-2001-05-25  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.
-
-2001-05-25  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.
-
-2001-05-25  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.
-
-2001-05-25  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.
-
-2001-05-25  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.
-
-2001-05-25  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-xmas.el (w3m-euc-japan-decoder): Fix typo.
-
-2001-05-24  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.
-
-2001-05-24  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.
-
-2001-05-24  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'.
-
-2001-05-24  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'.
-
-2001-05-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (toplevel): Fix condition for (require 'pccl).
-
-2001-05-24  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-charset-to-coding-system): Simplified.
-	(make-ccl-coding-system) [XEmacs, Mule]: Removed.
-
-2001-05-24  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.
-
-2001-05-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (toplevel): Define make-ccl-coding-system() myself, when
-	failed (require 'pccl).
-
-2001-05-24  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.
-
-2001-05-24  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'.
-
-2001-05-23  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.
-
-2001-05-23  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.
-
-2001-05-23  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.
-
-2001-05-23  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.
-
-2001-05-23  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.
-
-2001-05-22  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.
-
-2001-05-22  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-cache-contents): Don't insert additional '\n' for binary
-	data.
-
-2001-05-22  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.
-
-2001-05-22  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.
-
-2001-05-22  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.
-
-2001-05-22  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.
-
-2001-05-21  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.
-
-2001-05-21  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.
-
-2001-05-21  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.
-
-2001-05-18  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-cache-underline-faces): Modified docs that it is for
-	Emacs 21's exclusive use.
-
-2001-05-18  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.
-
-2001-05-18  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.
-
-2001-05-18  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.
-
-2001-05-17  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-find-file): New optional argument, `type' is added.
-
-2001-05-17  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.
-
-2001-05-17  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-about-db-history): Modify display format for no folding.
-
-2001-05-17  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.
-
-2001-05-16  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.
-
-2001-05-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m): Use existing frame or window.
-
-2001-05-16  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-dtree.el (w3m-dtree-create): Fix HTML bug.
-
-2001-05-16  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.
-
-2001-05-16  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.
-
-2001-05-16  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-w3m): Typo fix.
-
-2001-05-16  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-bookmark.el (w3m-bookmark-default-section): Changed
-	initialization order.
-
-2001-05-16  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-dtree.el (w3m-dtree-create): Modify warning message.
-	(w3m-about-dtree): Set path to directory name.
-
-2001-05-16  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.
-
-2001-05-16  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.
-
-2001-05-16  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.
-
-2001-05-15  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.
-
-2001-05-15  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.
-
-2001-05-15  "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'.
-
-2001-05-15  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-dtree.el (top-level): Require `w3m' to suppress byte-compile
-	warnings.
-
-2001-05-15  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.
-
-2001-05-15  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.
-
-2001-05-15  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.
-
-2001-05-11  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.
-
-2001-05-11  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.
-
-2001-05-11  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.
-
-2001-05-10  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.
-
-2001-05-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-e21.el (w3m-insert-image): Remove `face' property from a text
-	behind an image.
-
-2001-05-10  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.
-
-2001-05-10  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'.
-
-2001-05-09  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-tree): New function.
-
-
-2001-05-09  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Release emacs-w3m-1.0 from emacs-w3m-1_0 branch.
-
-2001-05-08  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.
-
-2001-05-08  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-mode): Modify doc-string for describe mode, again.
-
-2001-05-08  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].
-
-2001-05-07  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-about-history): Run `set-buffer-multibyte' after
-	`erase-buffer' is done.
-
-2001-05-07  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-retrieve): Fixed problem when no-cache is non-nil and
-	w3m-content-type returns nil.
-
-2001-05-07  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.
-
-2001-05-07  Masatake YAMATO  <[e-mail]>
-
-	* w3m-xmas.el (w3m-setup-menu): Implemented.
-
-2001-05-07  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Check validity of contents length, to
-	avoid the problem reported in [emacs-w3m:00682].
-
-2001-05-07  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.
-
-2001-05-03  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.
-
-2001-04-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-about-history): Replace ">" with "&gt;".
-
-2001-04-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-about-history): New implementation without recursive
-	funcall'ing.
-	(w3m-about-history-1): Removed.
-
-2001-04-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-ftp-url): Don't give a url string to the function
-	`file-name-nondirectory'.
-
-2001-04-24  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.
-
-2001-04-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (mew-mime-text/html-w3m): Support Mew 1.95b120 or later.
-
-2001-04-24  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.
-
-2001-04-24  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m-0.2.1-mnc.patch: See [emacs-w3m:00629].
-
-2001-04-23  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.
-
-2001-04-23  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m-xmas.el (w3m-setup-header-line): Check `major-mode' to decide
-	whether header line should be set up.
-
-2001-04-23  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.
-
-2001-04-23  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-about-db-history): Set w3m work buffer as multibyte.
-
-2001-04-23  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-info-like-map): Changed key of `w3m-reload-this-page'.
-
-2001-04-20  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.
-
-2001-04-20  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.
-
-2001-04-20  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.
-
-2001-04-19  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.
-
-2001-04-19  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'.
-
-2001-04-19  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el: Byte-optimize `match-string-no-properties' not to use
-	`set-text-properties' under XEmacs.
-
-2001-04-19  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.
-
-2001-04-18  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'.
-
-2001-04-18  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'.
-
-2001-04-18  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.
-
-2001-04-17  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'.
-
-2001-04-17  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.
-
-2001-04-16  Katsumi Yamaoka  <[e-mail]>
-
-	* icons/parent-up.xpm: Reduced color depth.
-	* icons/parent-disabled.xpm: Renamed from parent-down.xpm.
-
-2001-04-16  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.
-
-2001-04-16  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-about-history): Set w3m work buffer as multibyte.
-
-2001-04-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-about-history-1, w3m-about-history): Deactivate all
-	"about://*" links.
-
-2001-04-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-about-history-1): New internal function.
-	(w3m-about-history): Use it.
-
-2001-04-15  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'.
-
-2001-04-13  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-about-history): Show a history tree (incompleted).
-	(w3m-exec): Put a title string into the history structure.
-
-2001-04-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-about-db-history): Change the format on display.
-
-2001-04-12  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.
-
-2001-04-12  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.
-
-2001-04-12  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.
-
-2001-04-12  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.
-
-2001-04-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* mew-w3m.el (TopLevel): Set w3m-mode-map if not exec w3m-mode() yet.
-
-2001-04-11  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.
-
-2001-04-10  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-copy-buffer): Use `w3m-history-copy' to make copies of
-	`w3m-history' and `w3m-history-flat'.
-
-2001-04-10  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-mode-map): Refer `w3m-key-binding' to avoid the
-	problem reported in [emacs-w3m:00498].
-
-2001-04-10  Keisuke Nishida  <[e-mail]>
-
-	* w3m-search.el (w3m-search): Find default using thing-at-point.
-
-2001-04-10  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'.
-
-2001-04-09  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.
-
-2001-04-09  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.
-
-2001-04-06  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.
-
-2001-04-05  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.
-
-2001-04-05  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.
-
-2001-04-04  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.
-
-2001-04-04  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.
-
-2001-04-04  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.
-
-2001-04-04  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-print-this-url): New optional argument `add-kill-ring' is
-	added.
-
-2001-04-03  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.
-
-2001-04-03  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]>.
-
-2001-04-03  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.
-
-2001-04-02  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'.
-
-2001-04-02  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (DISTS): Removed `Makefile'.
-
-2001-04-02  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-backward, w3m-history-forward): Simplified.
-
-2001-04-02  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.
-
-2001-04-02  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.
-
-2001-04-02  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.
-
-2001-04-02  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.
-
-2001-04-02  Hiroya Murata  <[e-mail]>
-
-	* Makefile.in (Makefile): Depends on config.status instead of
-	configure.
-	(config.status): New rule.
-
-2001-04-01  Katsumi Yamaoka  <[e-mail]>
-
-	* aclocal.m4 (AC_PATH_ICONDIR): Quote "$(data-directory)" in help-
-	string.
-
-2001-04-02  Akihiro Arisawa  <[e-mail]>
-
-	* w3m.el (w3m-html-string-regexp): Make no exception of back-quote.
-	(w3m-parse-attributes): Follow up above change.
-
-2001-03-30  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.
-
-2001-03-30  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.
-
-2001-03-30  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'.
-
-2001-03-30  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Fixed spec of return value when response
-	code is greater than 500.
-
-2001-03-29  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.
-
-2001-03-29  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'.
-
-2001-03-29  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.
-
-2001-03-29  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.
-
-2001-03-28  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.
-
-2001-03-28  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-push): New function.
-
-2001-03-27  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el (w3m-url-history): Define it here.
-	(w3m-history-assoc, w3m-history-flat, w3m-history-backward): New
-	functions.
-
-2001-03-26  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el (w3m-history-forward): New function.
-
-2001-03-24  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Put cursor at the top of minibuffer.
-
-2001-03-23  Akihiro Arisawa  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Don't check "OK" string in Status-Line.
-
-2001-03-23  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.
-
-2001-03-23  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-hist.el: New file.
-
-2001-03-23  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'.
-
-2001-03-23  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.
-
-2001-03-22  Keisuke Nishida  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Insert the current url for input by default.
-
-2001-03-22  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.
-
-2001-03-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-w3m-attributes): Ignore errors while parsing a
-	time-string.
-
-2001-03-22  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.
-
-2001-03-22  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'.
-
-2001-03-22  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-antenna.el: All occurrence of `natsumikan' is replaced with
-	`natsumican'.
-
-2001-03-22  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.
-
-2001-03-22  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-save-list): Use 'pp' if have pp().  Bind 'print-length'
-	and 'print-level' to nil.
-
-2001-03-22  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'.
-
-2001-03-22  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Refresh the visibility of toolbar when XEmacs
-	is running.
-
-2001-03-22  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'.
-
-2001-03-21  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.
-
-2001-03-21  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-arrived-shutdown): Check sites which are arrived on the
-	other emacs process.
-
-2001-03-21  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-input-url): 'nil' don't add candidates.
-
-2001-03-21  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'.
-
-2001-03-20  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'.
-
-2001-03-19  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.
-
-2001-03-19  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.
-
-2001-03-19  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'.
-
-2001-03-19  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'.
-
-2001-03-19  Akihiro Arisawa  <[e-mail]>
-
-	* w3m.el (w3m-download): Bind `file-coding-system' to binary.
-	(w3m-content-type-alist): Fix.
-
-2001-03-18  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m-antenna.el (w3m-antenna): Optional argument, `no-cache' is added.
-
-2001-03-18  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-goto-url): Switch to buffer of w3m, certainty.
-	(w3m): Ditto.
-
-2001-03-17  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.
-
-2001-03-17  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/".
-
-2001-03-17  Yuuichi Teranishi  <[e-mail]>
-
-	* icons/antenna-up.xpm: New file.
-
-	* w3m.el (w3m-toolbar-buttons): Added "antenna".
-	(w3m-toolbar): Ditto; Fixed behavior of `home'.
-
-2001-03-16  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el, w3m-antenna.el: Fix typo.
-
-2001-03-16  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.
-
-2001-03-16  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.
-
-2001-03-16  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.
-
-2001-03-16  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.
-
-2001-03-16  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-time.el (w3m-time-rules): Don't use backquote.
-	(w3m-time-zoneinfo): Ditto.
-	(w3m-time-parse-integer): Ditto.
-
-2001-03-16  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'.
-
-2001-03-16  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.
-
-2001-03-16  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.
-
-2001-03-16  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in (install-icons): New rule.
-	(ICONDIR): New variable.
-
-	* aclocal.m4 (AC_PATH_ICONDIR): New function.
-	* configure.in: Call it.
-
-2001-03-16  Yuuichi Teranishi  <[e-mail]>
-
-	* icons: New directory (Some toolbar icons are contained).
-
-2001-03-16  Akihiro Arisawa  <[e-mail]>
-
-	* w3m.el (w3m-view-source): Render as html if already display source.
-
-2001-03-15  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.
-
-2001-03-15  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (XEmacs): Implemented the source level optimizer for `let'
-	or `let*' form to remove some obsolete variables.
-
-2001-03-15  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'.
-
-2001-03-15  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.
-
-2001-03-15  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-exec-process): Add `delete-process' to clean up resources
-	of child process.
-
-2001-03-15  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.
-
-2001-03-15  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.
-
-2001-03-15  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.
-
-2001-03-15  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Makefile.in (default): Add `-k' option to continue byte-compile as
-	much as possible after an error.
-
-2001-03-15  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.
-
-2001-03-14  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.
-
-2001-03-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3mhack.el (w3mhack-examine-modules): Renamed from
-	`w3mhack-examine-additional-modules'.
-	* Makefile.in: Ditto.
-
-2001-03-14  Katsumi Yamaoka  <[e-mail]>
-
-	* Makefile.in, aclocal.m4, configure.in, install-sh, w3mhack.el: New
-	files.
-	* Makefile: Removed.
-
-2001-03-14  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: Split file.
-
-	* w3m-form.el: New file.
-
-2001-03-14  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.
-
-2001-03-14  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.
-
-2001-03-14  Katsumi Yamaoka  <[e-mail]>
-
-	* w3m-om.el: Rewrite to insert "-" into the name of eol-type variants
-	of each newly generated coding-system.
-
-2001-03-14  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.
-
-2001-03-13  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".
-
-2001-03-13  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: Split files.
-	* w3m-search.el: New file.
-	* w3m-weather.el: New file.
-
-2001-03-13  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.
-
-2001-03-13  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.
-
-2001-03-13  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-content-type-alist): [UNIX] Change method for text/html
-	type.
-
-2001-03-13  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'.
-
-2001-03-13  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.
-
-2001-03-13  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-exec-process): Check exit status and cause an error if it
-	is not zero.
-
-2001-03-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-executable-type): Use (eq system-type 'windows-nt) for
-	determination of win32.
-	(w3m-content-type-alist): Ditto.
-
-2001-03-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-which-command): Support executable suffix, `.exe' for
-	win32.
-
-2001-03-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-content-type-alist): Add 'use fiber.exe' alist for
-	Windows.
-	(w3m-w32-browser-with-fiber): New funciton.
-
-2001-03-12  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'.
-
-2001-03-12  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.
-
-2001-03-12  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-view-parent-page): Add a postfix '/' to parent-url.
-
-2001-03-12  Takaaki MORIYAMA  <[e-mail]>
-
-	* w3m.el (w3m-extended-charcters-table): Add '\x80'.
-
-2001-03-12  Masatake YAMATO  <[e-mail]>
-
-	* w3m.el (w3m-view-parent-page): New command.
-	(w3m-mode-map): Add `w3m-view-parent-page'.
-
-2001-03-10  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* mime-w3m.el (mime-w3m-message-structure): Make variable buffer local
-	at top leve.
-
-2001-03-10  Akihiro Arisawa  <[e-mail]>
-
-	* w3m.el (w3m-entity-alist): Eval at compile time.; Add character
-	entity references for ISO 8859-1 characters.
-
-2001-03-09  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.
-
-2001-03-09  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.
-
-2001-03-09  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'.
-
-2001-03-09  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.
-
-2001-03-09  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'.
-
-2001-03-08  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'.
-
-2001-03-08  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-local-retrieve): Bind 'auto conversion variables' to nil
-	when insert file with binary .
-
-2001-03-08  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.
-
-2001-03-08  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m-fontify): Allow '_' char for element name.
-
-2001-03-08  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.
-
-2001-03-08  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.
-
-2001-03-07  Keisuke Nishida  <[e-mail]>
-
-	* w3m.el (w3m-search-engine-alist): Added "rpmfind".
-	(w3m-fontify-anchors): Treat single quotes (') as quotation marks.
-
-2001-03-08  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.
-
-2001-03-07  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-view-current-url-with-external-browser): Fix typo when
-	browse current URL.
-
-2001-03-07  Yuuichi Teranishi  <[e-mail]>
-
-	* w3m.el (w3m-create-image) [XEmacs]: Retrieve header to determine
-	image type when `w3m-local-content-type' failed.
-
-2001-03-07  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'.
-
-2001-03-07  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].
-
-2001-03-07  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.
-
-2001-03-06  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.
-
-2001-03-06  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.
-
-2001-03-05  Keisuke Nishida  <[e-mail]>
-
-	* w3m.el (w3m-anchor, w3m-image, w3m-action): Use defsubst.
-
-2001-03-05  Keisuke Nishida  <[e-mail]>
-
-	* w3m.el (and-let*): Removed
-	(w3m-save-this-url): Updated.
-
-2001-03-06  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.
-
-2001-03-06  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.
-
-2001-03-05  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 '/'.
-
-2001-03-05  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.
-
-2001-03-05  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.
-
-2001-03-05  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.
-
-2001-03-05  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-sub-list): Guard error for XEmacs (N must count from
-	zero).
-
-2001-03-05  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-search): Simplify.
-	(w3m-do-search): Removed.
-
-2001-03-05  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Merge form branch to main trunk.
-
-2001-03-05  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.
-
-2001-03-05  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-content-type-alist): Add some content-type.
-	(w3m-w3m-retrieve): Change bind variables method to 'let*'.
-
-2001-03-05  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".
-
-2001-03-04  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.
-
-2001-03-04  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.
-
-2001-03-04  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.
-
-2001-03-04  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'.
-
-2001-03-04  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.
-
-2001-03-04  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.
-
-2001-03-02  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.
-
-2001-03-02  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.
-
-2001-03-02  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'.
-
-2001-03-02  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m-home-page): Initialize as URL.
-
-2001-03-02  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.
-
-2001-03-01  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* Merge changes on `url' branch to main trunk.
-
-2001-03-01  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.
-
-2001-03-01  Shun-ichi GOTO  <[e-mail]>
-
-	* mew-w3m.el: New file to use w3m with Mew.
-
-2001-03-01  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.
-
-2001-03-01  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.
-
-2001-02-28  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.
-
-2001-02-28  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.
-
-2001-02-28  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m-bookmark-add): Fix problem of adding bookmark first time.
-
-2001-02-28  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: Reconstructed drastically and removed w3 depended codes.
-
-2001-02-28  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m-executable-type): New variable.
-	(w3m-cygwin-path): New function.
-	(w3m-region): New function.
-
-2001-02-26  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el (w3m-fontify): Add code to decode w3m-specific extended
-	charcters.
-	(w3m-extended-charcters-table): New constant.
-
-2001-02-08  Hideyuki SHIRAI  <[e-mail]>
-
-	* w3m.el (w3m-async-exec): New customizable variable.
-	(w3m-exec-process): Use 'w3m-async-exec' instead of 'w3m-process-type'.
-
-2001-02-07  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.
-
-2001-02-07  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.
-
-2000-12-12  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).
-
-2000-12-10  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* makepatch.pl, Makefile, .cvsignore: New files.
-
-2000-10-26  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.
-
-2000-10-20  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().
-
-2000-10-18  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.
-
-2000-10-16  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.
-
-2000-10-12  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'.
-
-2000-10-11  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).
-
-2000-09-21  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m): Cancel last change, use switch-to-buffer again.
-
-2000-09-20  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m): Do not switch buffer if w3m window already exists.
-
-2000-09-20  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.
-
-2000-09-20  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m-command-arguments): Remove option -m, that's not good for
-	bookmark / local file handling.
-
-2000-09-19  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.
-
-2000-09-19  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'.
-
-2000-09-19  Shun-ichi GOTO  <[e-mail]>
-
-	* w3m.el (w3m): Sorry, over paren.
-
-2000-09-18  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.
-
-2000-09-18  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: Add authors.
-
-2000-09-18  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.
-
-2000-09-18  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.
-
-2000-07-13  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: Added handling of name anchors. Add comments.
-
-2000-07-12  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: Improved to handle multi buffer. Fix broken cache and order
-	of fontify.
-
-2000-07-01  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: Handle &-sequence. Add history and cache.
-
-2000-06-25  TSUCHIYA Masatoshi  <[e-mail]>
-
-	* w3m.el: New file.
-
-
-Local Variables:
-coding: iso-2022-7bit
-fill-column: 79
-indent-tabs-mode: t
-End:

--- a/share/emacs/site-lisp/w3m/mew-w3m.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,474 +0,0 @@
-;; 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

--- a/share/emacs/site-lisp/w3m/mime-w3m.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,227 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/octet.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,548 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-antenna.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,659 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-bookmark.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,591 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-bug.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,192 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-ccl.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,202 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-cookie.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,578 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-dtree.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,239 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-ems.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1416 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-favicon.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,367 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-fb.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,208 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-filter.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,367 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-form.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1897 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-hist.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,740 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-image.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,266 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-lnum.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,564 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-load.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,520 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-mail.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,396 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-namazu.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,278 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-perldoc.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,124 +0,0 @@
-;;; 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.

--- a/share/emacs/site-lisp/w3m/w3m-proc.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,801 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-rss.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,169 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-search.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,365 +0,0 @@
-;;; 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/\
-250-7496892-7797857"
-	       iso-8859-1
-	       "url=index=blended&field-keywords=%s"))
-	  '(("amazon"
-	     "http://www.amazon.com/exec/obidos/search-handle-form/\
-250-7496892-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

--- a/share/emacs/site-lisp/w3m/w3m-session.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,909 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-symbol.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,230 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-tabmenu.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,188 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-ucs.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,109 +0,0 @@
-;;; 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.

--- a/share/emacs/site-lisp/w3m/w3m-util.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1421 +0,0 @@
-;;; 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

--- a/share/emacs/site-lisp/w3m/w3m-weather.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,510 +0,0 @@
-;;; 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.

--- a/share/emacs/site-lisp/w3m/w3m.el	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,10807 +0,0 @@
-;;; 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

--- a/share/info/emacs-w3m-ja.info	Mon Sep 13 19:44:07 2010 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,7024 +0,0 @@
-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