[Mew-Win32 01614] Re: about mew-nmz

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Sumiya Sakoda <sakoda at example.com> さん曰く
Subject: [Mew-Win32 01613] Re: about mew-nmz
Message-ID: <19990716091213H.sakoda at example.com>
Date: Fri, 16 Jul 1999 09:12:13 +0900

shirai> (setq mew-nmz-namazu-full-window nil)
shirai> 
shirai> である程度ご希望に添いますが、全然まじめに作っていないところなの
shirai> で、変だったらご容赦。

佐古田> いやーこれで十分です。

ども。

shirai> # どっちかというと、mew-nmz から namazu.el を使うモードは
shirai> # *ついでに作った* なのであんまり考えていないんです。

佐古田> ついでに作った割にはとても便利なものだと思います。

たしかに、namazu-mode は "ぱぁ〜" とみるのにはとっても便利ですね。
(と、Mew との連係を作ったとき、自分でも思ったりした)

話は代わって mouse のことですが、namazu.el の Version もいろいろ
あるし、namazu.el 自体は Mew となんにも関係が無いので、パッチに
はしませんが、以下を ~/.emacs に書いておくと mouse でも Mew にい
くようになります。

  (add-hook 'namazu-mode-hook
	    '(lambda ()
	       (if (string-match "XEmacs" emacs-version)
		   (define-key namazu-mode-map [(button2)] 'mew-namazu-view-at-mouse)
		 (define-key namazu-mode-map [mouse-2] 'mew-namazu-view-at-mouse))))
  
  (defun mew-namazu-view-at-mouse (event)
    "Namazu's mouse interface for Mew."
    (interactive "e")
    (set-buffer (event-buffer event))
    (goto-char (event-point event))
    (let ((pos (point))
	  (mew-mail-pattern (concat "^"
				    (expand-file-name mew-mail-path)
				    ".*/[1-9][0-9]*"))
	  (mew-news-pattern (concat "^"
				    (expand-file-name mew-news-path)
				    ".*/[1-9][0-9]*"))
	  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
	     (functionp 'mew-nmz-namazu-goto-mew)
	     (or (looking-at mew-mail-pattern)
		 (looking-at mew-news-pattern)))
	(mew-nmz-namazu-goto-mew))
       ((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.")))))