diff options
Diffstat (limited to 'misc/gnus-nmz-1.el')
| -rw-r--r-- | misc/gnus-nmz-1.el | 114 |
1 files changed, 0 insertions, 114 deletions
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: ;;; |