From c66c7000bea312d75fab767c436f2d69d2905598 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 19 Jun 2013 04:17:13 +0200
Subject: namazu fixes

---
 misc/gnus-nmz-1.el | 114 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 114 insertions(+)
 create mode 100644 misc/gnus-nmz-1.el

(limited to 'misc/gnus-nmz-1.el')

diff --git a/misc/gnus-nmz-1.el b/misc/gnus-nmz-1.el
new file mode 100644
index 0000000..8f49c3a
--- /dev/null
+++ b/misc/gnus-nmz-1.el
@@ -0,0 +1,114 @@
+;;; 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/\\(.+\\)/")
+  "*検索結果中の Gnus の Mail spool のパターン")
+
+(defvar gnus-nmz-cache-regex 
+    (concat (expand-file-name "~/") "News/cache/\\([^/]+\\)/\\([0-9]+\\)")
+    "*検索結果中の Gnus の News cache のパターン")
+
+(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 以外の値を設定すると、windows.el
+(http://www.gentei.org/~yuuji/software/)
+を使います。もちろん別途インストールの必要あり。")
+  
+(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: ;;;
-- 
cgit v1.2.3