unused external libs removed

3 files changed, 0 insertions, 1306 deletions

diff --git a/misc/esh-toggle.el b/misc/esh-toggle.el
deleted file mode 100644
index 9b47f89..0000000
--- a/misc/esh-toggle.el
+++ /dev/null
@@ -1,182 +0,0 @@
-;;; esh-toggle --- toggle to and from the *eshell* buffer
-
-;; Copyright (C) 1997, 1998, 2000, 2001 Mikael Sjdin (mic@docs.uu.se)
-
-;; Author: Mikael Sjdin <mic@docs.uu.se>
-;;         John Wiegley <johnw@gnu.org>
-;; Created: 19 Nov 1998
-;; Version: 2.0
-;; Keywords: processes
-;; X-URL: http://www.gci-net.com/users/j/johnw/eshell.html
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Provides the command eshell-toggle which toggles between the
-;; *eshell* buffer and whatever buffer you are editing.
-;;
-;; This is done in an "intelligent" way.  Features are:
-;;
-;;  - Starts a eshell if non is existing.
-;;
-;;  - Minimum distortion of your window configuration.
-;;
-;;  - When done in the eshell-buffer you are returned to the same
-;;    window configuration you had before you toggled to the eshell.
-;;
-;;  - If you desire, you automagically get a "cd" command in the
-;;    eshell to the directory where your current buffers file exists;
-;;    just call eshell-toggle-cd instead of eshell-toggle.
-;;
-;;  - You can convinently choose if you want to have the eshell in
-;;    another window or in the whole frame.  Just invoke eshell-toggle
-;;    again to get the eshell in the whole frame.
-;;
-;; This file has been tested under Emacs 20.2.
-;;
-;; To use, call the functions `eshell-toggle' or `eshell-toggle-cd'.
-;; It's most helpful to bind these to a key.
-
-;;; Thanks to:
-
-;; Christian Stern <Christian.Stern@physik.uni-regensburg.de> for
-;; helpful sugestions.
-
-;;; User Variables:
-
-(defvar eshell-toggle-goto-eob t
-  "*If non-nil `eshell-toggle' moves point to end of Eshell buffer.
-When `eshell-toggle-cd' is called the point is always moved to the
-end of the eshell-buffer")
-
-(defvar eshell-toggle-automatic-cd t
-  "*If non-nil `eshell-toggle-cd' will send a \"cd\" to Eshell.
-If nil `eshell-toggle-cd' will only insert the \"cd\" command in the
-eshell-buffer.  Leaving it to the user to press RET to send the
-command to the eshell.")
-
-;;; User Functions:
-
-;;;###autoload
-(defun eshell-toggle-cd ()
-  "Calls `eshell-toggle' with a prefix argument.
-See the command `eshell-toggle'"
-  (interactive)
-  (eshell-toggle t))
-
-;;;###autoload
-(defun eshell-toggle (make-cd)
-  "Toggles between the *eshell* buffer and the current buffer.
-With a prefix ARG also insert a \"cd DIR\" command into the eshell,
-where DIR is the directory of the current buffer.
-
-Call twice in a row to get a full screen window for the *eshell*
-buffer.
-
-When called in the *eshell* buffer returns you to the buffer you were
-editing before caling the first time.
-
-Options: `eshell-toggle-goto-eob'"
-  (interactive "P")
-  ;; Try to descide on one of three possibilities:
-  ;; 1. If not in eshell-buffer, switch to it.
-  ;; 2. If in eshell-buffer and called twice in a row, delete other
-  ;;    windows
-  ;; 3. If in eshell-buffer and not called twice in a row, return to
-  ;;    state before going to the eshell-buffer
-  (if (eq major-mode 'eshell-mode)
-      (if (and (or (eq last-command 'eshell-toggle)
-		   (eq last-command 'eshell-toggle-cd))
-	       (not (eq (count-windows) 1)))
-	  (delete-other-windows)
-	(eshell-toggle-buffer-return-from-eshell))
-    (eshell-toggle-buffer-goto-eshell make-cd)))
-
-;;; Internal Functions:
-
-(defvar eshell-toggle-pre-eshell-win-conf nil
-  "Contains window config before the *eshell* buffer was selected")
-
-(defun eshell-toggle-buffer-return-from-eshell ()
-  "Restores window config used before switching the *eshell* buffer.
-If no configuration has been stored, just bury the *eshell* buffer."
-  (if (window-configuration-p eshell-toggle-pre-eshell-win-conf)
-      (progn
-	(set-window-configuration eshell-toggle-pre-eshell-win-conf)
-	(setq eshell-toggle-pre-eshell-win-conf nil)
-	(bury-buffer (get-buffer "*eshell*")))
-    (bury-buffer)))
-
-(defun eshell-toggle-buffer-goto-eshell (make-cd)
-  "Switches other window to the *eshell* buffer.
-If no *eshell* buffer exists start a new eshell and switch to it in
-other window.  If argument MAKE-CD is non-nil, insert a \"cd DIR\"
-command into the eshell, where DIR is the directory of the current
-buffer.
-Stores the window cofiguration before creating and/or switching window."
-  (setq eshell-toggle-pre-eshell-win-conf (current-window-configuration))
-  (let ((eshell-buffer (get-buffer "*eshell*"))
-	(cd-command
-	 ;; Find out which directory we are in (the method differs for
-	 ;; different buffers)
-	 (or (and make-cd
-		  (buffer-file-name)
-		  (file-name-directory (buffer-file-name))
-		  (concat "cd " (file-name-directory (buffer-file-name))))
-	     (and make-cd
-		  list-buffers-directory
-		  (concat "cd " list-buffers-directory))
-             (and make-cd
-                  default-directory
-                  (concat "cd " default-directory)))))
-    ;; Switch to an existin eshell if one exists, otherwise switch to
-    ;; another window and start a new eshell
-    (if eshell-buffer
-	(switch-to-buffer-other-window eshell-buffer)
-      (eshell-toggle-buffer-switch-to-other-window)
-      ;; Sometimes an error is generated when I call `eshell' (it has
-      ;; to do with my eshell-mode-hook which inserts text into the
-      ;; newly created eshell-buffer and thats not allways a good
-      ;; idea).
-      (condition-case the-error
-	  (eshell)
-	(error (switch-to-buffer "*eshell*"))))
-    (if (or cd-command eshell-toggle-goto-eob)
-	(goto-char (point-max)))
-    (if cd-command
-	(progn
-	  (insert cd-command)
-	  (if eshell-toggle-automatic-cd
-	      (eshell-send-input))))))
-
-(defun eshell-toggle-buffer-switch-to-other-window ()
-  "Switches to other window.
-If the current window is the only window in the current frame, create
-a new window and switch to it.  (This is less intrusive to the current
-window configuration then `switch-buffer-other-window')"
-  (let ((this-window (selected-window)))
-    (other-window 1)
-    ;; If we did not switch window then we only have one window and
-    ;; need to create a new one.
-    (if (eq this-window (selected-window))
-	(progn
-	  (split-window-vertically)
-	  (other-window 1)))))
-
-(provide 'esh-toggle)
-
-;;; esh-toggle.el ends here
diff --git a/misc/gnus-nmz-1.el b/misc/gnus-nmz-1.el
deleted file mode 100644
index 8f49c3a..0000000
--- a/misc/gnus-nmz-1.el
+++ /dev/null
@@ -1,114 +0,0 @@
-;;; gnus-nmz-1.el --- interface between Namazu and Gnus.  -*- coding: iso-2022-jp-unix; -*-
-;;; gnus-nmz-1.el --- interface between Namazu and Gnus.
-
-;; Copyright (C) 1999, 2000 KOSEKI Yoshinori <kose@wizard.tamra.co.jp>
-;; Copyright (C) 2000 Namazu Project All rights reserved.
-
-;; Author: KOSEKI Yoshinori <kose@wizard.tamra.co.jp>
-;;         and Namazu Project.
-;; Version: -1.0.2
-;; Keywords: mail, news, Namazu, Gnus
-
-;; This file is not part of GNU Emacs but obeys its copyright notice.
-
-;; 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; 
-
-;;; Code:
-
-(defconst gnus-nmz-version "gnus-nmz -1.0.2"
-  "Version string for this version of gnus-nmz-1.")
-
-(require 'namazu)
-
-(defvar gnus-nmz-nnml-spool-regex 
-  (concat (expand-file-name "~/") "Mail/\\(.+\\)/")
-  "*$B8!:w7k2LCf$N(B Gnus $B$N(B Mail spool $B$N%Q%?!<%s(B")
-
-(defvar gnus-nmz-cache-regex 
-    (concat (expand-file-name "~/") "News/cache/\\([^/]+\\)/\\([0-9]+\\)")
-    "*$B8!:w7k2LCf$N(B Gnus $B$N(B News cache $B$N%Q%?!<%s(B")
-
-(if (boundp 'namazu-view-function-alist)
-    (setq namazu-view-function-alist
-          (cons (cons (concat gnus-nmz-nnml-spool-regex
-			      "\\|"
-			      gnus-nmz-cache-regex)
-		      'gnus-nmz-view)
-		namazu-view-function-alist)))
-
-(defvar gnus-nmz-with-windows  (featurep 'windows)
-  "*nil $B0J30$NCM$r@_Dj$9$k$H!"(Bwindows.el
-(http://www.gentei.org/~yuuji/software/)
-$B$r;H$$$^$9!#$b$A$m$sJLES%$%s%9%H!<%k$NI,MW$"$j!#(B")
-  
-(defun gnus-nmz-view (path)
-  (interactive)
-  (let (group id)
-    (cond 
-     ((string-match gnus-nmz-nnml-spool-regex path)
-      (setq group (match-string 1 path))
-      ;; replace "/" with "."
-      (let (result (start 0))
-	(while (string-match "/" group start)
-	  (setq result (concat result
-			       (substring group start (match-beginning 0))
-			       "."))
-	  (setq start (match-end 0)))
-	(setq group (concat result (substring group start))))
-      (setq group (format "nnml:%s" group))
-      (setq id (format "%s" (file-name-nondirectory path))))
-     ((string-match gnus-nmz-cache-regex path)
-      (setq group (format "%s"(substring path
-                                         (match-beginning 1) (match-end 1))))
-      (setq id (format "%s" (substring path
-                                       (match-beginning 2) (match-end 2)))))
-     (t ))
-    (if group
-        (save-excursion
-          (if gnus-nmz-with-windows
-              (win-switch-to-window 0 2))
-          (if (get-buffer gnus-group-buffer)
-              (set-buffer gnus-group-buffer)
-            (gnus)
-            (set-buffer gnus-group-buffer))
-          (if gnus-topic-mode
-              (gnus-topic-read-group 1 nil group)
-            (gnus-group-read-group 1 nil group))
-          (gnus-summary-goto-article id nil t)
-          (sit-for 0)
-          (gnus-summary-refer-thread)))))
-
-(eval-after-load "gnus-sum"
-  '(define-key gnus-summary-mode-map "q" 'gnus-nmz-gnus-summary-exit))
-
-(defun gnus-nmz-gnus-summary-exit ()
-  (interactive)
-  (if (null (get-buffer namazu-buffer))
-      (gnus-summary-exit)
-    (delete-other-windows)
-    (switch-to-buffer namazu-buffer)))
-
-(provide 'gnus-nmz-1)
-
-;;; gnus-nmz-1.el ends here
-
-;;; Local Variables: ;;;
-;;; change-log-default-name: "ChangeLog.gnus-nmz-1" ;;;
-;;; End: ;;;
diff --git a/misc/namazu.el b/misc/namazu.el
deleted file mode 100644
index 8fe70ee..0000000
--- a/misc/namazu.el
+++ /dev/null
@@ -1,1010 +0,0 @@
-;; -*- Mode: Emacs-Lisp -*-
-;;
-;; Mule $B>e$G(B Namazu $B$rMxMQ$7$?8!:w$r9T$&$?$a$N(B elisp $B$G$9!#(B
-;;
-;;  $Id: namazu.el,v 1.13 2000-02-24 06:48:33 kose Exp $
-
-(defconst namazu-version "namazu.el 1.0.3")
-
-;; Namazu $B$K$h$k8!:w7k2L$,;X$9%I%-%e%a%s%H(B($BN`(B)$B$,(B
-;; $B%m!<%+%k%G%#%9%/>e$K$"$k>l9g$K$O$=$l$rD>@\;2>H$7!"(B
-;; $B%M%C%H%o!<%/>e$K$"$k>l9g$K$O(B brouse-url $B$N5!G=$rMQ$$$F(B
-;; $B$=$l$r;2>H$9$k$3$H$,$G$-$^$9!#(B
-;;
-;; $B%m!<%+%k%G%#%9%/>e$N%I%-%e%a%s%H(B($BN`(B)$B$,05=L$7$F$"$k>l9g!"(B
-;; jka-compr $B$N5!G=$rMQ$$$F$=$l$rE83+$7$h$&$H$7$^$9!#(B
-;;
-;; Namazu $B%b!<%I$G$O%m!<%+%k%G%#%9%/$K$J$$%U%!%$%k$X$N(B
-;; $B%"%/%;%9$K$D$$$F$O(B brouse-url $B$K0lG$$7$F$$$^$9!#(B
-;; $B$=$&$$$C$?$o$1$G$9$N$G(B browse-url-browser-function $B$K(B
-;; $BE,@Z$J@_Dj$r$7$F$*$+$J$$$H!"30It$K$"$k%j%=!<%9$r(B
-;; $B;2>H$9$k$3$H$O$G$-$^$;$s!#$?$H$($P$3$s$J@_Dj$r$7$^$9(B:
-;;
-;;  (autoload 'namazu "namazu" nil t)
-;;  (setq browse-url-browser-function 'browse-url-netscape)
-;;
-;; font-lock $B$d(B hilit19 $B$,%m!<%I$7$F$"$l$P(B
-;; $B8!:w7k2L$O(B($B$$$/$i$+(B)$B2Z$d$+$KI=<($5$l$k$G$7$g$&!#(B
-;;
-;; $BMQ0U$9$kI,MW$,$"$k$+$bCN$l$J$$$b$N(B:
-;; $BA0=R$NDL$j(B browse-url $B$,I,MW$G$9$,!"(B19.28 $B%Y!<%9$N(B Mule $B$K$O(B
-;; $B$3$l$,4^$^$l$F$$$J$$$h$&$G$9!#F1:-$N(B "browse-url-for-emacs-19.28.el"
-;; $B$r$*;H$$2<$5$$!#(B
-;;
-;; $B8!:wJ}K!(B:
-;; $B>e5-$N@_Dj$r=*$($?$i(B M-x namazu $B$H%?%$%W$7$F$/$@$5$$!#(B
-;; $B$9$k$H8!:w$N%-!<(B($B>r7o<0(B)$B$rJ9$$$F$-$^$9$N$G(B namazu $B$H$+(B
-;; ruby & perl $B$H$$$C$?8!:w%-!<$rF~NO$7$^$9!#(B
-;; $BF~NO$r=*$($k$H(B Namazu $B$,5/F0$5$l!"(B
-;; $B8!:w7k2L$rI=<($9$k%P%C%U%!$,:n$i$l$^$9!#(B
-;; $B$3$N%P%C%U%!Fb$G$O0J2<$N%-!<A`:n$,Dj5A$5$l$F$$$^$9!#(B
-;;
-;;             $BA0%Z!<%8(B    $BA09`(B     $B<!9`(B    $B<!%Z!<%8(B
-;;   $BI8=`(B(1)      P         p        n         N
-;;   $BI8=`(B(2)              [BkSp]  [Space]
-;;   $BI8=`(B(3)              M-[Tab]  [Tab]
-;;   vi $BIw(B        h         k        j         l
-;;   $B%+!<%=%k(B   [left]     [up]    [down]   [right]
-;;
-;;   $B%Z!<%8$N@hF,$X(B        <
-;;   $B%Z!<%8$NKvHx$X(B        >
-;;   $B%I%-%e%a%s%H$N;2>H(B    g $B$^$?$O(B [Enter]
-;;   $B>r7o$rDI2C$7$F:F8!:w(B  r
-;;   $B8!:w7k2L$N>C5n(B        q
-;;   namazu $B=*N;(B           Q
-;;   $B%X%k%WI=<((B            ?
-;;
-;; $B$^$?!"(Bmouse $B$N$^$s$J$+$N%\%?%s$r2!$9$H!"2!$7$?0LCV$K$h$C$F!"(B
-;; "$B%I%-%e%a%s%H$N;2>H(B"$B!"(B"$BA0%Z!<%8(B"$B!"(B "$B<!%Z!<%8(B" $B$N$I$l$+$NF0:n$r9T$J(B
-;; $B$$$^$9!#(B
-;;
-;; $B%G%U%)%k%H0J30$N%$%s%G%C%/%9(B(NMZ.*)$B$r;HMQ$7$?$$>l9g$O!"(B
-;; C-u M-x namazu $B$H%?%$%W$9$k$3$H$G%$%s%G%C%/%9$NCV$$$F$"$k%G%#%l%/%H(B
-;; $B%j$r;XDj$9$k$3$H$b=PMh$^$9!#$^$?!"8D!9$N%G%#%l%/%H%j$KBP$7$FJLL>$r(B
-;; $BDj5A$9$k$3$H$b2DG=$G$9!#@_DjNc$J$I>\$7$$$3$H$O(B namazu-dir-alist $B$N(B
-;; $B@bL@$r;2>H$7$F$/$@$5$$(B :-P$B!#(B
-;;
-;; $B:G?7HG$NF~<j$K$D$$$F(B:
-;; namazu.el $B$N:G?7HG$O(B namazu $B$KIUB0$9$k$b$N$d!"(Bnamazu ML $B$J$I$G(B
-;; $BF~<j2DG=$G$9(B.
-;;
-;; $BG[I[>r7o$J$I(B:
-;; $B$3$l$O(B $B$^$D$b$H(B $B$f$-$R$m(B <matz@netlab.co.jp> $B$5$s$,:n@.$7!"(B
-;; $BF1;a$H(B $BGO>l(B $BH%(B <baba@kusastro.kyoto-u.ac.jp> $B$5$s!"(B
-;; $B9bNS(B $BE/(B <ccsatoru@vega.aichi-u.ac.jp> $B$5$s!"(B
-;; Toshiaki Tanaka <toshiaki@ksj1.kansai-sc.toshiba.co.jp>$B$5$s!"(B
-;; $B1|@>(B $BF#OB(B <fuji0924@mbox.kyoto-inet.or.jp> $B$5$s$N$46(NO$N2<$G(B
-;; $B$d$^$@(B $B$"$-$i(B <akira@linux.or.jp> $B$5$s$,2~B$$r2C$($?$b$N$r!"(B
-;; $BEZ20(B $B2mL-(B <tsuchiya@pine.kuee.kyoto-u.ac.jp> $B$5$s!"(B
-;; $BKY8}63B@O:(B <kyota@po.ntts.co.jp> $B$5$sC#$N<8S#7cNe$K$h$j(B
-;; Namazu Project $B$,2~B$$7$F$$$k$b$N$G$9!#(B
-;; $B$$$+$J$k7A$G$NMxMQ!&:FG[I[$K$D$$$F$b8"Mx$NN`$O0l@Z<gD%$7$^$;$s!#(B
-;; $B<+M3$K07$C$F$b$i$C$F9=$$$^$;$s!#(B
-;;
-;; $B$*LsB+(B:
-;; $B$3$l$O2?$i$+$NJ]>Z$rH<$&$b$N$G$O$"$j$^$;$s!#(B
-;; $BDs6!$5$l$k5!G=$r;H$C$?7k2L!"MxMQ<T$,D>@\E*$"$k$$$O4V@\E*$K(B
-;; $BB;32$rHo$C$?$H$7$F$b!"$=$l$O:n<TC#$N4XCN$9$k$H$3$m$G$O$"$j$^$;$s!#(B
-;; $B$"$/$^$G(B at your own risk $B$G$4MxMQ2<$5$$!#(B
-;;
-
-;; CUSTOM emulation derived from BBDB and APEL.
-(eval-and-compile
-  (condition-case ()
-      (require 'custom)
-    (error nil))
-  (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
-      nil ;; We've got what we needed
-    ;; We have the old custom-library, hack around it!
-    (defmacro defgroup (&rest args)
-      nil)
-    (defmacro defcustom (var value doc &rest args)
-      (` (defvar (, var) (, value) (, doc))))
-    (defmacro defface (var value doc &rest args)
-      (` (make-face (, var))))
-    (defmacro define-widget (&rest args)
-      nil)))
-
-(defgroup namazu nil
-  "Namazu front-end for Emacs."
-  :group 'external)
-
-(defcustom namazu-command "namazu"
-  "*Namazu $B$N8!:wMQ%W%m%0%i%`L>$G$9!#(B
-$BDL>o$O(B namazu $B$J$I$G$7$g$&$,!"$=$&$G$O$J$$>l9g$d(B
-PATH $B$,DL$C$F$$$J$$>l9g$K$OE,Ev$J%W%m%0%i%`L>$r;XDj$7$^$9!#(B"
-  :type 'string
-  :group 'namazu)
-
-(defcustom namazu-search-num 30
-  "*Namazu $B$N8!:w7k2L$r0lEY$KI=<($9$k7o?t$G$9!#(B"
-  :type 'integer
-  :group 'namazu)
-
-(defcustom namazu-default-dir nil
-  "*Namazu $B$,;2>H$9$k%$%s%G%C%/%9$NCV$$$F$"$k%G%#%l%/%H%jL>$G$9!#(B
-$BFC$K;XDj$7$J$1$l$P%G%U%)%k%H$N%$%s%G%C%/%9$r;2>H$7$^$9!#(B
-$BJ#?t$N%$%s%G%C%/%9$r;XDj$9$k>l9g$K$O$=$l$>$l$r6uGr$G6h@Z$C$F$/$@$5$$!#(B"
-  :type '(choice
-	  (item :tag "Auto" :value nil)
-	  (directory :tag "Default Index"))
-  :group 'namazu)
-
-(defcustom namazu-dir-alist nil
-  "*$B%$%s%G%C%/%9$,CV$$$F$"$k%G%#%l%/%H%j$K(B
-$B%7%s%\%j%C%/$JL>A0$r$D$1$k$?$a$N(B alist $B$G$9!#(B
-  '((\"Namazu\" . \"/usr/doc/namazu/index /var/lib/namazu/index\")
-    (\"Ruby\" . \"/usr/doc/ruby/namazu\"))
-$B$J$I$N$h$&$K@_Dj$7$F$*$/$H!"8D!9$N%$%s%G%C%/%9%U%!%$%k$N$"$k(B
-$B%G%#%l%/%H%jL>$r;XDj$9$kBe$o$j$K(B Namazu $B$d(B Ruby $B$H$$$C$?(B
-$B$$$o$PJLL>$r;XDj$9$k$3$H$,$G$-$^$9!#(B
-$BJ#?t$N%$%s%G%C%/%9$r;XDj$9$k>l9g$K$O$=$l$>$l$r6uGr$G6h@Z$C$F$/$@$5$$!#(B"
-  :type '(repeat (cons :format "%v"
-		       (string :tag "Alias")
-		       (string :tag "Index path")))
-  :group 'namazu)
-
-(defcustom namazu-always-query-index-directory nil
-  "*nil $B0J30$NCM$r@_Dj$9$k$H!"?tCM0z?t$,$J$$$H$-$K(B
-$B%$%s%G%C%/%9%U%!%$%k$r;XDj$G$-!"?tCM0z?t$,$"$k$H$-$K(B
-$B%G%U%)%k%H$N%$%s%G%C%/%9$r;2>H$9$k$h$&$K$J$j$^$9!#(B
-$B>o$K%$%s%G%C%/%9%U%!%$%k$r;XDj$7$F8!:w$r9T$$$?$$(B
-$B>l9g$J$I$KJXMx$+$b$7$l$^$;$s!#(B"
-  :type 'boolean
-  :group 'namazu)
-
-(defcustom namazu-auto-turn-page nil
-  "*nil $B0J30$NCM$r@_Dj$9$k$H!"<+F0E*$K%Z!<%8$a$/$j$r$7$^$9!#(B"
-  :type 'boolean
-  :group 'namazu)
-
-(defcustom namazu-mode-hook nil
-  "*Namazu $B%b!<%I$r:n@.$9$k%?%$%_%s%0$G8F$P$l$k(B hook $B$G$9!#(B"
-  :type 'hook
-  :group 'namazu)
-
-(defcustom namazu-display-hook nil
-  "*Namazu $B$N=PNO$rI=<($9$k$H$-$K8F$P$l$k(B hook $B$G$9!#(B"
-  :type 'hook
-  :group 'namazu)
-
-(defcustom namazu-url-regex "^\\(https?://\\|ftp://\\)"
-  "*URL $B$H8+$J$9%U%!%$%kL>$N%Q%?!<%s$r@_Dj$7$^$9!#(B"
-  :type 'regexp
-  :group 'namazu)
-
-(defcustom namazu-view-function-alist
-  '(("[^/]+\\.s?html?" . namazu-browse-url)
-    ("/Mail\\|News/.*/[1-9][0-9]*$" . namazu-view-msg)
-    ("man/man" . namazu-man)
-    ;; ("/usr/local/info/\\|\\.info" . namazu-info) ;; $BL$:n@.(B
-    ("." . namazu-view-file))
-  "*$B%U%!%$%kL>$N%Q%?!<%s$H$=$l$KBP1~$9$k1\Mw4X?t$r@_Dj$7$^$9!#(B"
-      :type '(repeat (cons :format "%v"
-			   (regexp :tag "Filename Regexp")
-			   (symbol :tag "Function Name")))
-      :group 'namazu)
-
-(defcustom namazu-view-other-window nil
-  "*If non-nil, make an other window when namazu-view."
-  :type 'boolean
-  :group 'namazu)
-
-(defcustom namazu-view-other-frame nil
-  "*If non-nil, make an other frame when namazu-view."
-  :type 'boolean
-  :group 'namazu)
-
-(defcustom namazu-msg-visible-field (list "subject" "from" "to" "newsgroups" "date")
-  "*Visible header list for namazu-view-msg."
-  :type '(repeat (string :tag "Header"))
-  :group 'namazu)
-
-(defcustom namazu-msg-highlight-function nil
-  "*A function, view-msg highlight method.
-e.g.
-  namazu-msg-highlight-mew -- use Mew functions(require Mew 1.94 or later)."
-  :type '(radio (function-item :tag "use Mew functions"
-			       :format "%t\n"
-			       namazu-msg-highlight-mew)
-		(function :tag "Other"))
-  :group 'namazu)
-
-(defvar namazu-cs-write
-  (if (memq system-type '(OS/2 emx windows-nt))
-      (if (> emacs-major-version 19) 'sjis-dos '*sjis*dos)
-    (if (> emacs-major-version 19) 'euc-jp '*euc-japan*))
-  "*Coding system for namazu process (output).")
-
-(defvar namazu-cs-read
-  (if (> emacs-major-version 19) 'undecided '*autoconv*)
-  "*Coding system for namazu process (input).")
-
-(defvar namazu-config-file-path
-  (list (getenv "NAMAZUCONFPATH")
-	(getenv "NAMAZUCONF")		; obsolete?
-	"./.namazurc"
-	"~/.namazurc"
-	"/usr/local/etc/namazu/namazurc"
-	"/usr/local/namazu/lib/namazurc") ;obsolete?
-  "*Search path for a Namazu configuration file.")
-
-(defvar namazu-argument "-H"
-  "*Namazu $B$N8!:wMQ%W%m%0%i%`$r5/F0$9$k:]$K;XDj$9$k0z?t$G$9!#(B")
-
-;;
-;; $B$3$3$+$i@h$r$$$8$C$F!"AGE($K$J$C$?$i65$($F$/$@$5$$$M!#(B
-;;
-
-(defvar namazu-fill-prefix "\t")
-(defvar namazu-header-prefix "   ")
-(defvar namazu-index-history '(""))
-(defvar namazu-keyword-history '(""))
-(defvar namazu-mode-map nil)
-(defvar namazu-minibuffer-map nil)
-(defvar namazu-minibuffer-field-map nil)
-(defvar namazu-buffer "*namazu*")
-(defvar namazu-last-dir nil
-  "$B8=:_$N8!:w$G;2>H$7$F$$$k%$%s%G%C%/%9$N:_=h(B")
-(defvar namazu-current-page 0
-  "$B1\MwCf$N8!:w7k2L$N%Z!<%8HV9f(B")
-(defvar namazu-max-page 0
-  "$B8=:_$N8!:w7k2L$N:GBg%Z!<%8HV9f(B")
-(defvar namazu-output-title-pattern
-  "^\\([0-9]+\\.\\) \\(.*\\) \\(([^)]*)\\)$"
-  "$B8!:w7k2L$NCf$N%I%-%e%a%s%H$N%?%$%H%k$r<($99T$N%Q%?!<%s(B")
-(defvar namazu-output-header-pattern
-  (format "^%s\\([^:]+:.*\\)$" namazu-header-prefix)
-  "$B8!:w7k2L$NCf$N(B From$B!"(BDate $B%X%C%@$r<($9%Q%?!<%s(B")
-(defvar namazu-output-url-pattern
-  "^\\(\\(~?/\\|[a-z]+:\\)[^ ]+\\) \\(.*\\)$"
-  "$B8!:w7k2L$NCf$N%I%-%e%a%s%H$N:_=h(B(URL)$B$r<($99T$N%Q%?!<%s(B")
-(defvar namazu-output-current-list-pattern
-  "^[^:]+: [0-9]+ - [0-9]+$"
-  "$B8!:w7k2L$NCf$N$I$NItJ,$r1\MwCf$+$r<($99T$N%Q%?!<%s(B")
-(defvar namazu-output-pages-pattern
-  "^[^:]+: \\(\\[[0-9]+\\]\\)*\\[\\([0-9]+\\)\\]$"
-  "$B8!:w7k2L$N%Z!<%8?t$r<($99T$N%Q%?!<%s(B")
-(defvar namazu-view-vismark nil)
-
-(and (locate-library "browse-url") (require 'browse-url))
-(and (locate-library "jka-compr") (require 'jka-compr))
-(provide 'namazu)
-
-(defun namazu (&optional page-num namazu-dir key)
-  "namazu-command $B$r5/F0$7$F8!:w$r9T$$$^$9!#(B"
-  (interactive
-   (list
-    0
-    (if (or (and (not namazu-always-query-index-directory) current-prefix-arg)
-	    (and namazu-always-query-index-directory (not current-prefix-arg)))
-	(read-from-minibuffer "Namazu index directory: " nil
-			      namazu-minibuffer-map nil 'namazu-index-history)
-      nil)
-    (read-from-minibuffer "Enter Keyword: " nil
-			  namazu-minibuffer-field-map nil 'namazu-keyword-history)))
-  (let ((buffer (get-buffer-create namazu-buffer))
-	(dir (or namazu-dir
-		 (progn
-		   (or namazu-default-dir
-		       (setq namazu-default-dir (namazu-get-default-index-dir)))
-		   (expand-file-name namazu-default-dir))))
-	(arg-list (if (listp namazu-argument)
-		      namazu-argument (list namazu-argument))))
-    (setq arg-list (append
-		    arg-list
-		    (list "-n" (int-to-string namazu-search-num)
-			  "-w" (int-to-string (* page-num namazu-search-num))
-			  key)))
-    (if (and dir (not (string= dir "")) (string-match "[^ \t]" dir))
-	(setq arg-list (append arg-list
-			       (namazu-split-dir (namazu-expand-dir-alias dir)))))
-    (set-buffer buffer)
-    (setq buffer-read-only nil)
-    (buffer-disable-undo (current-buffer))
-    (erase-buffer)
-    (message "Namazu running ...")
-    (let ((default-process-coding-system (cons namazu-cs-read namazu-cs-write))
-	  (process-input-coding-system namazu-cs-read)
-	  (process-output-coding-system namazu-cs-write)
-	  (coding-system-for-read namazu-cs-read)
-	  (coding-system-for-write namazu-cs-write))
-      (apply (function call-process) namazu-command nil t nil arg-list))
-    (if (not (and buffer
-		  (get-buffer buffer)
-		  (buffer-name (get-buffer buffer))))
-	(message "Namazu exits with no output")
-      (pop-to-buffer buffer)
-      (goto-char (point-min))
-      (save-excursion
-	(namazu-fill)
-	(if (re-search-forward namazu-output-pages-pattern nil t)
-	    (setq namazu-max-page
-		  (+ -1 (string-to-number (buffer-substring
-					   (match-beginning 2) (match-end 2)))))
-	  (setq namazu-max-page 0)))
-
-      ;(goto-char (point-min))
-      (setq namazu-current-page page-num)
-      (setq namazu-last-dir dir)
-      (namazu-mode)
-      (setq buffer-read-only t)
-      (run-hooks 'namazu-display-hook)
-      (message "Namazu running ... done.") )))
-
-(defvar namazu-default-fill-column 80)
-
-(defun namazu-fill ()
-  "namazu-command $B$G$N8!:w7k2L$r@07A$7$^$9!#(B"
-  (while (re-search-forward "^[0-9]+\. " nil t)
-    (beginning-of-line 2)
-    (let ((start-point (point)))
-      (re-search-forward "^$" nil t)
-      (forward-line -1)
-      ;; there is URL or file name
-      (if (looking-at namazu-output-url-pattern)
-	  (forward-line -1))
-      ;; there is description
-      (if (> (point) start-point)
-	  (save-excursion
-	    (while (> (point) start-point)
-	      (forward-line -1)
-	      (insert namazu-header-prefix)
-	      (beginning-of-line))
-	  ))
-      ;; there is description
-      (let ((fill-column namazu-default-fill-column)
-	    (fill-prefix namazu-fill-prefix)
-	    (enable-kinsoku nil))
-	(insert namazu-fill-prefix)
-	(fill-region (point)
-		     (save-excursion (forward-line 1) (point))))
-      ;; $BM>J,$J6u9T$r$H$C$Q$i$&$?$a$NEXNO(B
-      (re-search-forward "^$" nil t)
-      (while (looking-at "^$")
-	(delete-char 1)
-	(forward-line 1))
-      )))
-
-(defun namazu-re-search (&optional key)
-  "$B8=:_$N8!:w%-!<$rJQ99$7$?>e$G:F8!:w$7$^$9!#(B"
-  (interactive
-   (list
-    (save-excursion
-      (read-from-minibuffer "Enter Keyword: "
-			    (cons (car namazu-keyword-history) 1)
-			    namazu-minibuffer-field-map
-			    nil 'namazu-keyword-history))))
-  (namazu 0 namazu-last-dir key))
-
-(defun namazu-next-page ()
-  "$B<!$N%Z!<%8$N8!:w7k2L$X0\F0$7$^$9!#(B"
-  (interactive)
-  (if (< namazu-current-page namazu-max-page)
-      (namazu (+ 1 namazu-current-page) namazu-last-dir (car namazu-keyword-history))
-    t))
-
-(defun namazu-prev-page ()
-  "$BA0$N%Z!<%8$N8!:w7k2L$X0\F0$7$^$9!#(B"
-  (interactive)
-  (if (> namazu-current-page 0)
-      (namazu (+ -1 namazu-current-page) namazu-last-dir (car namazu-keyword-history))
-    t))
-
-(defun namazu-dir-complete ()
-  "$B%G%#%l%/%H%jL>$^$?$O(B namazu-dir-alist $B$+$i$N(B
-$BJ8;zNsJd40$r9T$$$^$9!#(B"
-  (interactive)
-  (let ((input (buffer-substring 1 (point)))
-	(alist namazu-dir-alist)
-	dir file files compl all sub-input mb)
-    (if (string-match "\\(^\\|\\(\\\\\\\\\\)*[^\\\\] \\)\\(\\(\\(\\\\\\\\\\)*\\\\ \\|[^ ]\\)*/\\)?\\([^/]*\\)$" input)
-	(progn
-	  (setq mb (match-end 1))
-	  (save-match-data
-	    (setq sub-input
-		  (namazu-unescape-dir
-		   (substring input mb (match-end 6)))))
-	  (save-match-data
-	    (setq dir
-		  (namazu-unescape-dir
-		   (substring input mb (match-beginning 6)))))
-	  (setq file (substring input (match-beginning 6) (match-end 6)))
-	  ;; HOME $B$+$i$NAjBP%Q%9$N=hM}(B
-	  (if (and (string= dir "")
-		   (string-match  "^~" file))
-	      (progn (setq dir file) (setq file "")))
-	  ;; $B%G%#%l%/%H%j$N>l9g$N=hM}(B
-	  (setq files (and (file-exists-p dir)
-			   (file-directory-p dir)
-			   (directory-files dir t "^[^.]")))
-	  (while files
-	    (if (file-directory-p (car files))
-		(setq alist
-		      (append alist
-			      (list (cons (concat (car files) "/")
-					  (car files))))))
-	    (setq files (cdr files)))
-	  ;; Completion-List $B$N:n@.(B
-	  (setq compl (or (try-completion sub-input alist)
-			  (try-completion (expand-file-name sub-input) alist)))
-	  (setq all (or (all-completions sub-input alist)
-			(all-completions (expand-file-name sub-input) alist)))
-	  (cond ((stringp compl)
-		 (delete-region (+ mb 1) (point-max))
-		 (insert (namazu-escape-dir compl))
-		 (with-output-to-temp-buffer "*Completions*"
-		   (display-completion-list all)))
-		(compl
-		 nil)
-		(t
-		 (beep)))
-	  )
-      (beep))))
-
-(defun namazu-escape-dir (dir)
-  "$B%G%#%l%/%H%jCf$N(B \"\\\" $B$H(B \" \" $B$r%(%9%1!<%W$7$^$9!#(B"
-  (let ((tmpdir1 dir) (tmpdir2 ""))
-    (while (string-match "\\([ \\]\\)" tmpdir1)
-      (setq tmpdir2
-	    (concat tmpdir2
-		    (substring tmpdir1 0 (match-beginning 0))
-		    "\\" (substring tmpdir1
-				    (match-beginning 1) (match-end 1))))
-      (setq tmpdir1 (substring tmpdir1 (match-end 0))))
-    (concat tmpdir2 tmpdir1)))
-
-(defun namazu-unescape-dir (dir)
-  "$B%G%#%l%/%H%jCf$N(B \"\\\" $B$H(B \" \" $B$r%(%9%1!<%W$7$^$9!#(B"
-  (let ((tmpdir1 dir) (tmpdir2 ""))
-    (while (string-match "\\\\\\([ \\]\\)" tmpdir1)
-      (setq tmpdir2
-	    (concat tmpdir2
-		    (substring tmpdir1 0 (match-beginning 0))
-		    (substring tmpdir1
-			       (match-beginning 1) (match-end 1))))
-      (setq tmpdir1 (substring tmpdir1 (match-end 0))))
-    (concat tmpdir2 tmpdir1)))
-
-(defun namazu-split-dir (dirs)
-  "$B%$%s%G%C%/%9%G%#%l%/%H%jJ8;zNs$rJ,3d$7!"(B\"~\" $B$J$I$rE83+$7$^$9!#(B"
-  (let ((tmpdir1 dirs) (dir-list (list))
-	(nmz-expand-filename (function (lambda (f)
-		(expand-file-name (namazu-unescape-dir
-		    (or (cdr (assoc f namazu-dir-alist)) f)))))))
-    (while (string-match "\\([^\\\\]\\) " tmpdir1)
-      (save-match-data
-	(setq dir-list
-	      (append dir-list
-		      (list (funcall nmz-expand-filename
-			      (substring tmpdir1 0 (match-end 1)))))))
-      (setq tmpdir1 (substring tmpdir1 (match-end 0))))
-    (if dirs
-	(append dir-list (list (funcall nmz-expand-filename tmpdir1)))
-      dir-list)))
-
-(defun namazu-expand-dir-alias (dir)
-  "$B%$%s%G%C%/%9%G%#%l%/%H%jJ8;zNsCf$N%(%$%j%"%9$rE83+$7$^$9!#(B"
-  (and dir namazu-dir-alist
-       (let ((alist namazu-dir-alist))
-	 (while alist
-	   (while (string-match
-		   (concat "\\(^\\| \\|\t\\)\\("
-			   (regexp-quote (car (car alist)))
-			   "\\)\\( \\|\t\\|$\\)") dir)
-	     (setq dir (concat (substring dir 0 (match-beginning 2))
-			       (cdr (car alist))
-			       (substring dir (match-beginning 3)))))
-	   (setq alist (cdr alist)))))
-  dir)
-
-(defun namazu-field-complete ()
-  "+to:field $B$NJd40$r$7$^$9!#(B"
-  (interactive)
-  (goto-char (point-max))
-  (let ((p (point))
-        (alist (namazu-make-field-completion-alist namazu-last-dir))
-        (completion-buffer "*Completions*")
-        word start result)
-    (save-excursion
-      (if (re-search-backward "\\+[^ \t]*" nil t)
-	  (progn
-	    (setq start (match-beginning 0))
-	    (setq word (match-string 0))
-	    (setq result (try-completion word alist)))))
-    (cond
-     ((eq result t)
-      (ding))
-     ((eq result nil)
-      (ding))
-     ((string= result word)
-      (with-output-to-temp-buffer completion-buffer
-        (display-completion-list
-         (all-completions word alist))))
-     (t
-      (delete-region start p)
-      (insert result)
-      (if (eq t (try-completion result alist))
-          ()
-        (ding))))))
-
-(defun namazu-make-field-completion-alist (namazu-dirs)
-  "make \'+files:\' completion alist."
-  (let (dir flist fields fname el
-	 (dirs (namazu-split-dir
-		(or namazu-dirs namazu-default-dir
-		    (setq namazu-default-dir (namazu-get-default-index-dir))))))
-    (while (setq dir (car dirs))
-      (if (file-exists-p dir)
-	  (setq flist (append (directory-files dir) flist)))
-      (setq dirs (cdr dirs)))
-    (while (setq fname (car flist))
-      (and (string-match "NMZ.field.\\([^.]+\\)\\'" fname)
-	   (setq el (list (format "+%s:"
-              (substring fname (match-beginning 1) (match-end 1)))))
-	   (if (not (member el fields))
-	       (setq fields (append (list el) fields))))
-      (setq flist (cdr flist)))
-    fields))
-
-(defun namazu-search-config-file ()
-  "Search namazu-config-file-path for a Namazu configuration file.
-Return the abosolute file name of the configuration.  When the file is
-not found, return nil "
-  (let ((config-file-list namazu-config-file-path) config-file)
-    (setq config-file-list (delq nil config-file-list))
-    (if (catch 'found
-	  (while config-file-list
-	    (setq config-file (expand-file-name (car config-file-list)))
-	    (and (file-exists-p config-file)
-		 (throw 'found t))
-	    (setq config-file-list (cdr config-file-list))))
-	config-file
-      nil)))
-
-(defun namazu-read-config-file (file)
-  "Read a namazu configuration file and return an alist of directive
-and value(s) pairs.
-FILE indicates the absolute file name of the configuration file. FILE
-must exists."
-  (let* (conf-alist
-	 (buffer (get-file-buffer file))
-	 (buffer-already-there-p buffer))
-    (or buffer-already-there-p
-	(setq buffer (find-file-noselect file)))
-    (unwind-protect
-	(save-excursion
-	  (set-buffer buffer)
-	  (goto-char (point-min))
-	  (let (directive value1 value2)
-	    (while (re-search-forward "\\(^[ \t]*\\(INDEX\\|BASE\\|\
-LOGGING\\|LANG\\|SCORING\\)[ \t]+\\([^ \t\n#]+\\)\\)\\|\
-\\(^[ \t]*\\(REPLACE\\)[ \t]+\\([^ \t\n#]+\\)[ \t]+\\([^ \t\n#]+\\)\\)" nil t)
-	      (cond ((match-string 1)   ; only 1 value
-		     (setq directive (match-string 2))
-		     (setq value1 (match-string 3))
-		     (setq conf-alist
-			   (delete (assoc directive conf-alist) conf-alist))
-		     (setq conf-alist
-			   (cons (cons directive value1) conf-alist)))
-		    ((match-string 4)	; 2 values
-		     (setq directive (match-string 5))
-		     (setq value1 (match-string 6))
-		     (setq value2 (match-string 7))
-		     (setq conf-alist
-			   (delete (assoc directive conf-alist) conf-alist))
-		     (setq conf-alist
-			   (cons (list directive value1 value2)
-				 conf-alist)))))))
-      (if (not buffer-already-there-p)
-	  (kill-buffer buffer)))
-    conf-alist))
-
-(defun namazu-get-default-index-dir ()
-  "Get a Namazu default index directory from a Namazu configuration file.
-Return \"/usr/local/namazu/index\" if the configuration file is not
-found."
-  (let (config-file conf-alist cell dir)
-    (setq config-file (namazu-search-config-file))
-    (if config-file
-	(progn
-	  (setq conf-alist (namazu-read-config-file config-file))
-	  (setq cell (assoc "INDEX" conf-alist))
-	  (and cell
-	       (setq dir (cdr cell)))
-	  dir)
-      "/usr/local/namazu/index")))
-
-(defun namazu-mode ()
-  "Namazu $B$N8!:w7k2L$r1\Mw$9$k$?$a$N%b!<%I$G$9!#(B
-
-binding          key
--------          ---
-$BA0$N%Z!<%8(B       P           / h / [left]
-$BA0$N9`L\(B         p / [BkSp]  / k / [up]    / M-[Tab]
-$B8e$N9`L\(B         n / [Space] / j / [down]  / [Tab]
-$B8e$N%Z!<%8(B       N           / l / [right]
-
-$B%Z!<%8$N@hF,$X(B   <
-$B%Z!<%8$NKvHx$X(B   >
-$BJ8=q$r;2>H(B       g / [Enter]
-$B:F8!:w(B           r / f
-$B8!:w7k2L>C5n(B     q
-Namazu $B=*N;(B      Q
-$B%X%k%WI=<((B       ?
-
-mouse $B$N??$sCf$N%\%?%s$r2!$9$H!"2!$7$?0LCV$K$h$C$F!"(B\"$BJ8>O$r;2>H(B\"$B!"(B
-\"$BA0$N%Z!<%8(B\"$B!"(B\"$B8e$m$N%Z!<%8(B\" $B$N$I$l$+$N=hM}$r<B9T$7$^$9!#(B
-"
-  (interactive)
-  (save-excursion
-    (if (eq major-mode 'namazu-mode)
-	()
-      (kill-all-local-variables)
-      (use-local-map namazu-mode-map)
-      (setq mode-name "Namazu")
-      (setq major-mode 'namazu-mode)
-      (run-hooks 'namazu-mode-hook))))
-
-(defun namazu-jump-next ()
-  "$B8!:w7k2L$N<!$N9`L\$X0\F0$7$^$9!#(B"
-  (interactive)
-  (let ((pos (point)))
-    (forward-line 1)
-    (if (re-search-forward namazu-output-url-pattern nil t)
-	(beginning-of-line)
-      (goto-char pos)
-      (if (and namazu-auto-turn-page
-	       (< namazu-current-page namazu-max-page))
-	  (progn
-	    (namazu-next-page)
-	    (namazu-jump-next))))))
-
-(defun namazu-jump-prev ()
-  "$B8!:w7k2L$N0l$DA0$N9`L\$X0\F0$7$^$9!#(B"
-  (interactive)
-  (if (re-search-backward namazu-output-url-pattern nil t)
-      (if (save-excursion
-	    (let ((ws (window-start)))
-	      (if (re-search-backward "^$" nil t)
-		  (and (>= ws (point))
-		       (< 1 (count-lines ws (point))))
-		nil)))
-	  (recenter))
-    (if (and namazu-auto-turn-page
-	     (> namazu-current-page 0))
-	(progn
-	  (namazu-prev-page)
-	  (end-of-buffer)
-	  (namazu-jump-prev)))))
-
-(defun namazu-view-at-mouse (event)
-  "mouse $B$r;H$C$F%V%i%&%:$7$?$j%Z!<%8$r0\F0$7$?$j$7$^$9!#(B"
-  (interactive "e")
-  (set-buffer (event-buffer event))
-  (goto-char (event-point event))
-  (let ((pos (point))
-	pos-title pos-url)
-    (end-of-line)
-    (and (re-search-backward namazu-output-title-pattern nil t)
-	 (setq pos-title (point))
-	 (goto-char pos)
-	 (re-search-forward namazu-output-title-pattern nil t)
-	 (re-search-backward namazu-output-url-pattern nil t)
-	 (> (point) pos-title)
-	 (setq pos-url (point))
-	 (setq pos (point)))
-    (goto-char pos)
-    (beginning-of-line)
-    (and (not pos-url)
-	 (re-search-forward namazu-output-url-pattern nil t)
-	 (setq pos-url (point)))
-    (goto-char pos)
-    (cond
-     ((and pos-title pos-url)
-      (namazu-view))
-     ((and pos-url (> namazu-current-page 0))
-      (namazu-prev-page))
-     ((and pos-title (< namazu-current-page namazu-max-page))
-      (namazu-next-page))
-     (t (message "nothing to do.")))))
-
-;; emacs $B8~$1$NDj5A(B
-(eval-and-compile
-  (or (fboundp 'event-buffer)
-      (defun event-buffer (event)
-	(window-buffer (posn-window (event-start event))))))
-
-(eval-and-compile
-  (or (fboundp 'event-point)
-      (defun event-point (event)
-	(posn-point (event-start event)))))
-
-(eval-and-compile
-  (or (fboundp 'match-string)
-      (defun match-string (num &optional string)
-	(if (match-beginning num)
-	    (if string
-		(substring string (match-beginning num) (match-end num))
-	      (buffer-substring (match-beginning num) (match-end num)))))))
-
-(defun namazu-view ()
-  "$B%]%$%s%H$,0LCV$9$k9`L\$r%V%i%&%:$7$^$9!#(B"
-  (interactive)
-  (beginning-of-line)
-  (if (re-search-forward namazu-output-url-pattern nil t)
-      (let ((url (buffer-substring (match-beginning 1) (match-end 1))))
-        (beginning-of-line)
-        (sit-for 0)
-        (and (string-match "^/\\([a-zA-Z]\\)|\\(/.*\\)$" url)
-	     ;; if DOS/Windows /c|...
-	     (setq url
-		   (concat (substring url (match-beginning 1) (match-end 1))
-			   ":"
-			   (substring url (match-beginning 2) (match-end 2)))))
-	(if (string-match namazu-url-regex url)
-	    (namazu-browse-url url)
-	  (let ((ext '("" ".gz" ".Z" "bz2"))
-		(fl namazu-view-function-alist)
-		(file (expand-file-name url)) (name "") path done)
-	    (and (string-match "\\(.*\\)\\(#.*\\)$" url)
-		 (setq file (substring url (match-beginning 1) (match-end 1)))
-		 (setq name (substring url (match-beginning 2) (match-end 2))))
-	    (while (and (null done) ext)
-	      (setq path (concat file (car ext)))
-	      (and (file-exists-p path)
-		   (setq done t)
-		   (while fl
-		     (if (string-match (car (car fl)) path)
-			 (progn
-			   (funcall (cdr (car fl)) (concat path name))
-			   (setq fl nil)))
-                     (setq fl (cdr fl))))
-	      (setq ext (cdr ext))))))))
-
-(defun namazu-view-file (&optional file)
-  "View file function."
-  (interactive "fView message: ")
-  (if (and window-system namazu-view-other-frame)
-      (view-file-other-frame file)
-    (if namazu-view-other-window
-	(view-file-other-window file)
-      (view-file file)))
-  ;; xxx
-  (if (and (boundp 'view-mode-map) view-mode-map)
-      (define-key view-mode-map "," 'namazu-view-top))
-  (if (and (boundp 'view-minor-mode-map) view-minor-mode-map)
-      (define-key view-minor-mode-map "," 'namazu-view-top))
-  (make-local-variable 'namazu-view-vismark))
-
-(defun namazu-view-msg (&optional file)
-  "View message function."
-  (namazu-view-file file)
-  (let ((buffer-read-only nil)
-	(vis-head "")
-	hspos)
-    (goto-char (point-min))
-    (if (not (re-search-forward "^$" nil t))
-	()
-      (save-excursion
-	(save-restriction
-	  (narrow-to-region (point-min) (point))
-	  (mapcar (function
-		   (lambda (head)
-		     (goto-char (point-min))
-		     (if (not (re-search-forward (concat "^" head ":") nil t))
-			 ()
-		       (beginning-of-line)
-		       (setq hspos (point))
-		       (forward-line 1)
-		       (while (looking-at "^[ \t]+")
-			 (forward-line 1))
-		       (setq vis-head
-			     (concat vis-head (buffer-substring hspos (point))))
-		       (delete-region hspos (point)))))
-		  namazu-msg-visible-field)
-	  (goto-char (point-max))
-	  (setq namazu-view-vismark (point-marker))
-	  (insert vis-head)
-	  (condition-case err
-	      (cond
-	       ((fboundp 'mew-header-decode-region)
-		(mew-header-decode-region 'text (point-min) (point-max) t))
-	       ((fboundp 'eword-decode-region)
-		(eword-decode-region (point-min) (point-max) t)))
-	    (error nil))
-	  (widen)))
-      (goto-char namazu-view-vismark)
-      (recenter 0)
-      (if namazu-msg-highlight-function
-	  (funcall namazu-msg-highlight-function))
-      (set-visited-file-name nil)
-      (set-buffer-modified-p nil))))
-
-(defun namazu-view-top ()
-  "goto namazu view top point."
-  (interactive)
-  (if (and (boundp 'namazu-view-vismark)
-	   (markerp namazu-view-vismark))
-      (goto-char namazu-view-vismark)
-    (goto-char (point-min)))
-  (recenter 0))
-
-(defun namazu-browse-url (url)
-  "browse-url $B$r;H$C$FI=<($7$^$9!#(B
-$B;HMQ$9$k(B browser $B$O(B browse-url-browser-function $B$G;XDj$7$^$9!#(B"
-  (interactive)
-  (setq url (browse-url-file-url url))
-  (if (fboundp 'browse-url)
-      (browse-url url)
-    (funcall browse-url-browser-function url)))
-
-(defun namazu-man (file)
-  "manual $B$rI=<($7$^$9!#(B"
-  (interactive)
-  (require 'man)
-  (let ((manual-program "nroff -man -h"))
-    (Man-getpage-in-background file)))
-
-(defun namazu-exit ()
-  "namazu $B$r=*N;$7$^$9!#(B"
-  (interactive)
-  (if (and (get-buffer namazu-buffer)
-	   (buffer-name (get-buffer namazu-buffer)))
-      (kill-buffer namazu-buffer)))
-
-(if namazu-mode-map
-    nil
-  (setq namazu-mode-map (make-keymap))
-  (suppress-keymap namazu-mode-map)
-  (define-key namazu-mode-map "P"     'namazu-prev-page)
-  (define-key namazu-mode-map "p"     'namazu-jump-prev)
-  (define-key namazu-mode-map "n"     'namazu-jump-next)
-  (define-key namazu-mode-map "N"     'namazu-next-page)
-
-  (define-key namazu-mode-map "\177"  'namazu-jump-prev)
-  (define-key namazu-mode-map " "     'namazu-jump-next)
-
-  (define-key namazu-mode-map "\M-\t" 'namazu-jump-prev)
-  (define-key namazu-mode-map "\t"    'namazu-jump-next)
-
-  (define-key namazu-mode-map "h"     'namazu-prev-page)
-  (define-key namazu-mode-map "k"     'namazu-jump-prev)
-  (define-key namazu-mode-map "j"     'namazu-jump-next)
-  (define-key namazu-mode-map "l"     'namazu-next-page)
-
-  (define-key namazu-mode-map [left]  'namazu-prev-page)
-  (define-key namazu-mode-map [up]    'namazu-jump-prev)
-  (define-key namazu-mode-map [down]  'namazu-jump-next)
-  (define-key namazu-mode-map [right] 'namazu-next-page)
-
-  (define-key namazu-mode-map "<"     'beginning-of-buffer)
-  (define-key namazu-mode-map ">"     'end-of-buffer)
-  (define-key namazu-mode-map "\r"    'namazu-view)
-  (define-key namazu-mode-map "g"     'namazu-view)
-  (define-key namazu-mode-map "r"     'namazu-re-search)
-  (define-key namazu-mode-map "q"     'bury-buffer)
-  (define-key namazu-mode-map "Q"     'namazu-exit)
-  (define-key namazu-mode-map "?"     'describe-mode)
-
-  (if (string-match "XEmacs" emacs-version)
-      (define-key namazu-mode-map [(button2)] 'namazu-view-at-mouse)
-    (define-key namazu-mode-map [mouse-2] 'namazu-view-at-mouse)))
-
-(if namazu-minibuffer-map
-    nil
-  (let ((map (copy-keymap minibuffer-local-map)))
-    (define-key map "\t" 'namazu-dir-complete)
-    (setq namazu-minibuffer-map map)))
-
-(if namazu-minibuffer-field-map
-    nil
-  (let ((map (copy-keymap minibuffer-local-map)))
-    (define-key map "\t" 'namazu-field-complete)
-    (setq namazu-minibuffer-field-map map)))
-
-(cond
- ((featurep 'font-lock)
-  (or (boundp 'font-lock-variable-name-face)
-      (setq font-lock-variable-name-face font-lock-type-face))
-  (or (boundp 'font-lock-reference-face)
-      (setq font-lock-reference-face font-lock-function-name-face))
-  (if (boundp 'font-lock-defaults)
-      (progn
-	(defvar namazu-font-lock-keywords
-	  (list
-	   (list namazu-output-title-pattern
-		 '(1 font-lock-comment-face)
-		 '(2 font-lock-keyword-face)
-		 '(3 font-lock-reference-face))
-	   (list namazu-output-header-pattern
-		 1 'font-lock-variable-name-face)
-	   (list namazu-output-url-pattern
-		 '(1 (progn
-		       (set-text-properties (match-beginning 1) (match-end 1)
-					    '(mouse-face highlight))
-		       font-lock-function-name-face))
-		 '(3 font-lock-type-face))
-	   (list namazu-output-current-list-pattern
-		 0 'font-lock-comment-face)
-	   (list namazu-output-pages-pattern 0 'font-lock-comment-face)))
-	(add-hook
-	 'namazu-display-hook
-	 (lambda ()
-	   (make-local-variable 'font-lock-defaults)
-	   (setq font-lock-defaults
-		 '((namazu-font-lock-keywords) t))
-	   (font-lock-mode 1))))
-    (defvar namazu-font-lock-keywords
-      (list
-       (list namazu-output-title-pattern 1 'font-lock-comment-face)
-       (list namazu-output-title-pattern 2 'font-lock-keyword-face)
-       (list namazu-output-title-pattern 3 'font-lock-reference-face)
-       (list namazu-output-header-pattern 1 'font-lock-variable-name-face)
-       (list namazu-output-url-pattern 1 'font-lock-function-name-face)
-       (list namazu-output-url-pattern 3 'font-lock-type-face)
-       (list namazu-output-current-list-pattern  0 'font-lock-comment-face)
-       (list namazu-output-pages-pattern 0 'font-lock-comment-face))
-      "Namazu $B$G$N8!:w7k2L$K$*2=>Q$r$9$k$?$a$N@_Dj$G$9(B. ")
-    (add-hook 'namazu-display-hook
-	      (lambda ()
-		(setq font-lock-keywords namazu-font-lock-keywords)
-		(font-lock-mode 1)))))
- ((featurep 'hilit19)
-  (if (and (boundp 'hilit-background-mode)
-	   (eq hilit-background-mode 'dark))
-      (hilit-set-mode-patterns
-       'namazu-mode
-       (list
-	(list namazu-output-title-pattern  1 'red-bold-underline)
-	(list namazu-output-title-pattern  2 'yellow-bold)
-	(list namazu-output-title-pattern  3 'grey80)
-	(list namazu-output-header-pattern 1 'palegreen)
-	(list namazu-output-url-pattern    1 'gold-underline)
-	(list namazu-output-url-pattern    3 'grey80)))
-    (hilit-set-mode-patterns
-     'namazu-mode
-     (list
-      (list namazu-output-title-pattern  1 'red-bold-underline)
-      (list namazu-output-title-pattern  2 'purple)
-      (list namazu-output-title-pattern  3 'grey40)
-      (list namazu-output-header-pattern 1 'DarkGoldenrod)
-      (list namazu-output-url-pattern    1 'blue-bold-underline)
-      (list namazu-output-url-pattern    3 'grey40))))
-  (add-hook 'namazu-display-hook
-	    'hilit-rehighlight-buffer-quietly)))
-
-;; Message highlight functions.
-;; e.g.
-;; (setq namazu-msg-highlight-function 'namazu-msg-highlight-mew)
-
-;;
-;; for Mew freak.
-(defun namazu-msg-highlight-mew ()
-  "namazu message highlight use Mew functions (1.94 or later)."
-  (save-excursion
-    (condition-case err
-	(progn
-	  (if (not (and (boundp 'mew-version)
-			mew-version))
-	      (save-excursion
-		(require 'mew)
-		(mew-init)
-		(if (get-buffer mew-buffer-hello)
-		    (kill-buffer mew-buffer-hello))))
-	  (goto-char (point-min))
-	  (if (and (fboundp 'mew-highlight-header-region)
-		   (re-search-forward "^$" nil t))
-	      (progn
-		(mew-highlight-header-region (point-min) (point))
-		(put-text-property (point) (1+ (point)) 'read-only t))) ;; header-end
-	  (cond
-	   ((fboundp 'mew-cite-color)
-	    (mew-cite-color))
-	   ((fboundp 'mew-highlight-body)
-	    (mew-highlight-body)))
-	  (and (fboundp 'mew-highlight-url)
-	       (mew-highlight-url)))
-      (error nil))))
-
-;; end here.