;;; nnmairix.el --- Mairix back end for Gnus, the Emacs newsreader
-;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: David Engster <dengste@eml.cc>
;; Keywords: mail searching
;;; Commentary:
-;; THIS IS BETA SOFTWARE! This back end should not mess up or
-;; even delete your mails, but having a backup is always a good idea.
-
;; This is a back end for using the mairix search engine with
;; Gnus. Mairix is a tool for searching words in locally stored
;; mail. Mairix is very fast which allows using it efficiently for
;;
;; Mairix is written by Richard Curnow. More information can be found at
;; http://www.rpcurnow.force9.co.uk/mairix/
-;;
-;; For details about setting up mairix&Gnus&nnmairix.el, look at the
-;; emacswiki:
-;;
-;; http://www.emacswiki.org/cgi-bin/wiki/GnusMairix
-;;
-;; The newest version of nnmairix.el can be found at
-;;
-;; http://www.emacswiki.org/cgi-bin/emacs/nnmairix.el
-
-;; For impatient people, here's the setup in a nutshell:
-;;
-;; This back end requires an installed mairix binary which is
-;; configured to index your mail folder. You don't have to specify a
-;; search folder (but it does no harm, either). Visit the man page of
-;; mairix and mairixrc for details.
-;;
-;; Put nnmairix.el into your search path and "(require 'nnmarix)" into
-;; your .gnus. Then call nnmairix-create-default-group (or 'G b
-;; c'). This function will ask for all necessary information to create
-;; a mairix server in Gnus with the default search folder. This
-;; default search folder will be used for all temporary searches: call
-;; nnmairix-search ('G b s') and enter a mairix query (like
-;; f:test@example.com). To create a mairix group for one specific
-;; search query, use 'G b g'. See the emacswiki or the source for more
-;; information.
;; Commentary on the code: nnmairix sits between Gnus and the "real"
;; back end which handles the mail (currently nnml, nnimap and
;;; Code:
+(eval-when-compile (require 'cl)) ;For (pop (cdr ogroup)).
+
(require 'nnoo)
(require 'gnus-group)
(require 'gnus-sum)
(add-hook 'gnus-group-mode-hook 'nnmairix-group-mode-hook)
(add-hook 'gnus-summary-mode-hook 'nnmairix-summary-mode-hook)
+;; ;;;###autoload
+;; (defun nnmairix-initalize (&optional force)
+;; (interactive "P")
+;; (if (not (or (file-readable-p "~/.mairixrc")
+;; force))
+;; (message "No file `~/.mairixrc', skipping nnmairix setup")
+;; (add-hook 'gnus-group-mode-hook 'nnmairix-group-mode-hook)
+;; (add-hook 'gnus-summary-mode-hook 'nnmairix-summary-mode-hook)))
;; Customizable stuff
(when (eq nnmairix-backend 'nnml)
(when nnmairix-rename-files-for-nnml
(nnmairix-rename-files-consecutively mfolder))
- (nnml-generate-nov-databases-directory mfolder))
+ (nnml-generate-nov-databases-directory mfolder nil t))
(nnmairix-call-backend
"request-scan" folder nnmairix-backend-server)
(if (and fast allowfast)
(mapcar
(lambda (arg) (- arg numcorr))
articles)))
- (setq rval (nnmairix-call-backend
- "retrieve-headers" articles folder nnmairix-backend-server fetch-old))
+ (setq rval
+ (if (eq nnmairix-backend 'nnimap)
+ (let ((gnus-nov-is-evil t))
+ (nnmairix-call-backend
+ "retrieve-headers" articles folder nnmairix-backend-server fetch-old))
+ (nnmairix-call-backend
+ "retrieve-headers" articles folder nnmairix-backend-server fetch-old)))
(when (eq rval 'nov)
(nnmairix-replace-group-and-numbers articles folder group numcorr)
rval)))
t)
nil))
+;; Silence byte-compiler.
+(defvar gnus-registry-install)
+(autoload 'gnus-registry-fetch-group "gnus-registry")
+(autoload 'gnus-registry-fetch-groups "gnus-registry")
+(autoload 'gnus-registry-add-group "gnus-registry")
+
(deffoo nnmairix-request-set-mark (group actions &optional server)
(when server
(nnmairix-open-server server))
(gnus-group-jump-to-group qualgroup)
(gnus-group-get-new-news-this-group))))))
+(autoload 'nnimap-request-update-info-internal "nnimap")
+
(deffoo nnmairix-request-update-info (group info &optional server)
;; propagate info from underlying IMAP folder to nnmairix group
;; This is currently experimental and must be explicitly activated
(interactive)
(let* ((name (read-string "Name of the mairix server: "))
(server (completing-read "Back end server (TAB for completion): "
- (nnmairix-get-valid-servers)))
+ (nnmairix-get-valid-servers) nil 1))
(mairix (read-string "Command to call mairix: " "mairix"))
(defaultgroup (read-string "Default search group: "))
(backend (symbol-name (car (gnus-server-to-method server))))
(set-process-sentinel (apply 'start-process args)
'nnmairix-sentinel-mairix-update-finished))))))
-;; Silence byte-compiler.
-(defvar gnus-registry-install)
-(autoload 'gnus-registry-fetch-group "gnus-registry")
-
(defun nnmairix-group-delete-recreate-this-group ()
"Deletes and recreates group on the back end.
You can use this function on nnmairix groups which continously
(unless (and skipdefault
(string= (car cur) default))
(gnus-group-jump-to-group (car cur))
- (gnus-group-get-new-news-this-group)))))))
+ (gnus-group-mark-group 1)))
+ (gnus-group-get-new-news-this-group)))))
(defun nnmairix-remove-tick-mark-original-article ()
"Remove tick mark from original article.
folder t nnmairix-backend-server)
(nnmairix-call-backend "request-create-group"
folder nnmairix-backend-server))
- (error "Nnmairix-delete-recreate with\
- non-mairix group!! - check folder parameter")))))
+ (error "`nnmairix-delete-recreate-group' called on \
+non-mairix group. Check folder parameter")))))
(defun nnmairix-update-and-clear-marks (group &optional method)
"Update group and clear all marks from GROUP using METHOD."
(save-excursion
(nnmairix-open-server (nth 1 method))
(set-buffer gnus-group-buffer)
-;; (gnus-group-set-parameter group 'propmarks nil)
+ ;; (gnus-group-set-parameter group 'propmarks nil)
(setq info (gnus-get-info group))
;; Clear active and info
(gnus-set-active group nil)
(gnus-group-set-parameter group 'numcorr corr)))
(gnus-group-jump-to-group group)
(gnus-group-get-new-news-this-group))
- (error "Nnmairix-update-and-clear-marks - Called with non-nnmairix group"))))
+ (error "`nnmairix-update-and-clear-marks' called with non-nnmairix group"))))
(defun nnmairix-sentinel-mairix-update-finished (proc status)
"Sentinel for mairix update process PROC with STATUS."
DESCRIPTION will be shown to the user with the activation
status. If PAR is a positive number, the group parameter will be
set to t and to nil otherwise."
- (let* ((method (gnus-find-method-for-group group))
- (par (or par
- (not (gnus-group-get-parameter group parameter)))))
+ (let* ((method (gnus-find-method-for-group group))
+ (par (or par
+ (not (gnus-group-get-parameter group parameter)))))
(if (eq (car method) 'nnmairix)
(progn
(when (numberp par)
(error "This is no nnmairix group")
nil)))
-
;; Search for original article helper functions
(defun nnmairix-goto-original-article (&optional no-registry)
(nnmairix-open-server server)
(while (string-match "[<>]" mid)
(setq mid (replace-match "" t t mid)))
+ ;; mairix somehow does not like '$' in message-id
+ (when (string-match "\\$" mid)
+ (setq mid (concat mid "=")))
+ (while (string-match "\\$" mid)
+ (setq mid (replace-match "=," t t mid)))
(let (allgroups)
(if (zerop (nnmairix-call-mairix-binary-raw
(split-string nnmairix-mairix-command)
allgroups nil t))
(setq group (car allgroups))))
group))
+
(defun nnmairix-show-original-article (group mid)
"Switch to GROUP and display Article with message-id MID."
(unless (string-match "^<" mid)
(string-match "mairix \\([0-9\\.]+\\)" versionstring)
(match-string 1 versionstring))))))))
-
-
;; ==== Widget stuff
(defvar nnmairix-widgets)
(nnmairix-widget-add "Threads" 'checkbox nil))
(widget-insert " Show full threads\n\n")))
-
(defun nnmairix-widget-build-editable-fields (values)
"Build editable field widgets in `nnmairix-widget-fields-list'.
VALUES may contain values for editable fields from current article."
projects / gnus / blobdiff