;; Author: TSUCHIYA Masatoshi <tsuchiya@namazu.org>
;; Keywords: mail searching namazu
-;; This file is a part of Semi-Gnus.
-
;; 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)
;;; Quick Start:
-;; If this module has already been installed, only 3 steps are
+;; If this module has already been installed, only four steps are
;; required to search articles with this module.
;;
;; (1) Install Namazu.
-;; (2) Start Gnus and type M-x gnus-namazu-create-index RET to make
+;;
+;; (2) Put this expression into your ~/.gnus.
+;;
+;; (gnus-namazu-insinuate)
+;;
+;; (3) Start Gnus and type M-x gnus-namazu-create-index RET to make
;; index of articles.
-;; (3) In group buffer or in summary buffer, type C-c C-n query RET.
+;;
+;; (4) In group buffer or in summary buffer, type C-c C-n query RET.
;;; Install:
;; Before installing this module, you must install Namazu.
;;
-;; This file is a part of T-gnus but is not *YET* a part of Gnus.
-;; When you would like to use this module in Gnus (not T-gnus), put
-;; this file into the lisp/ directory in the Gnus source tree and run
-;; `make install'. And then, put the following expression into your
+;; When you would like to byte-compile this module in Gnus, put this
+;; file into the lisp/ directory in the Gnus source tree and run `make
+;; install'. And then, put the following expression into your
;; ~/.gnus.
;;
-;; (require 'gnus-namazu)
;; (gnus-namazu-insinuate)
;;
;; In order to make index of articles with Namazu before using this
:type 'string
:group 'gnus-namazu)
+(defcustom gnus-namazu-command-prefix nil
+ "*Prefix commands to execute Namazu.
+If you put your index on a remote server, set this option as follows:
+
+ (setq gnus-namazu-command-prefix
+ '(\"ssh\" \"-x\" \"remote-server\"))
+
+This makes gnus-namazu execute \"ssh -x remote-server namazu ...\"
+instead of executing \"namazu\" directly."
+ :type '(repeat string)
+ :group 'gnus-namazu)
+
(defcustom gnus-namazu-additional-arguments nil
"*Additional arguments of Namazu.
The options `-q', `-a', and `-l' are always used, very few other
"Face used for namazu query matching words."
:group 'gnus-namazu)
+(defcustom gnus-namazu-remote-groups nil
+ "*Alist of regular expressions matching remote groups and their base paths.
+If you use an IMAP server and have a special index, set this option as
+follows:
+
+ (setq gnus-namazu-remote-groups
+ '((\"^nnimap\\\\+server:INBOX\\\\.\" . \"~/Maildir/.\")))
+
+This means that the group \"nnimap+server:INBOX.group\" is placed in
+\"~/Maildir/.group\"."
+ :group 'gnus-namazu
+ :type '(repeat
+ (cons (regexp :tag "Regexp of group name")
+ (string :tag "Base path of groups")))
+ :set (lambda (symbol value)
+ (prog1 (set-default symbol value)
+ (when (featurep 'gnus-namazu)
+ (gnus-namazu/make-directory-table t)))))
+
;;; Internal Variable:
(defconst gnus-namazu/group-name-regexp "\\`nnvirtual:namazu-search\\?")
(push (cons gnus-namazu/group-name-regexp
gnus-namazu-coding-system)
gnus-group-name-charset-group-alist))))
- (gnus-namazu-update-all-indices))
+ (unless gnus-namazu-command-prefix
+ (gnus-namazu-update-all-indices)))
(defun gnus-namazu/server-directory (server)
"Return the top directory of the server SERVER."
(default-process-coding-system
(cons gnus-namazu-coding-system gnus-namazu-coding-system))
program-coding-system-alist
- (file-name-coding-system gnus-namazu-coding-system))
- (apply 'call-process
- `(,gnus-namazu-command
- nil ; input from /dev/null
- t ; output
- nil ; don't redisplay
- "-q" ; don't be verbose
- "-a" ; show all matches
- "-l" ; use list format
- ,@gnus-namazu-additional-arguments
- ,query
- ,@gnus-namazu-index-directories))))
+ (file-name-coding-system gnus-namazu-coding-system)
+ (commands
+ (append gnus-namazu-command-prefix
+ (list gnus-namazu-command
+ "-q" ; don't be verbose
+ "-a" ; show all matches
+ "-l") ; use list format
+ gnus-namazu-additional-arguments
+ (list query)
+ gnus-namazu-index-directories)))
+ (apply 'call-process (car commands) nil t nil (cdr commands))))
(defvar gnus-namazu/directory-table nil)
(defun gnus-namazu/make-directory-table (&optional force)
(setq dir (nnmail-group-pathname
(gnus-group-short-name group)
(gnus-namazu/server-directory method))))
- (push (cons dir group) alist)))))
+ (push (cons dir group) alist)))
+ (dolist (pair gnus-namazu-remote-groups)
+ (when (string-match (car pair) group)
+ (setq dir (nnmail-group-pathname
+ (substring group (match-end 0))
+ "/"))
+ (push (cons (concat (cdr pair)
+ ;; nnmail-group-pathname() on some
+ ;; systems returns pathnames which
+ ;; have drive letters at their top.
+ (substring dir (1+ (string-match "/" dir))))
+ group)
+ alist)))))
gnus-newsrc-hashtb)
(dolist (pair (nconc agent cache alist))
(set (intern (if gnus-namazu-case-sensitive-filesystem
(defun gnus-namazu-update-indices (&optional directories force)
(when (setq directories
- (delq nil (mapcar (lambda (d) (gnus-namazu/update-p d force))
+ (delq nil (mapcar (lambda (d)
+ (gnus-namazu/update-p d force))
directories)))
(setq gnus-namazu/update-directories (cons force (cdr directories)))
(gnus-namazu-update-index (car directories) force)))