nnregistry.el 2 KB
Newer Older
Ludovic Courtes's avatar
Ludovic Courtes committed
1 2 3
;;; nnregistry.el --- access to articles via Gnus' message-id registry
;;; -*- coding: utf-8 -*-

4
;; Copyright (C) 2010-2011 Free Software Foundation, Inc.
Ludovic Courtes's avatar
Ludovic Courtes committed
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

;; Authors: Ludovic Courtès <ludo@gnu.org>
;; Keywords: news, mail

;; This file is part of GNU Emacs.

;; GNU Emacs 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 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs 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.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This file provides the `nnregistry' Gnus back-end.  It can be used
;; in `gnus-refer-article-method' to quickly search for a message by
28 29
;; id, regardless of the back-end that stores it.  See the Gnus manual
;; for usage examples and more information.
Ludovic Courtes's avatar
Ludovic Courtes committed
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

;;; Code:

(require 'nnoo)
(require 'gnus-registry)
(require 'gnus-int)

(nnoo-declare nnregistry)

(deffoo nnregistry-server-opened (server)
  (eq gnus-registry-install t))

(deffoo nnregistry-close-server (server)
  t)

(deffoo nnregistry-status-message (server)
  nil)

(deffoo nnregistry-open-server (server &optional defs)
  (eq gnus-registry-install t))

(defvar nnregistry-within-nnregistry nil)

(deffoo nnregistry-request-article (id &optional group server buffer)
  (and (not nnregistry-within-nnregistry)
       (let* ((nnregistry-within-nnregistry t)
56
	      (group (nth 0 (gnus-registry-get-id-key id 'group)))
Ludovic Courtes's avatar
Ludovic Courtes committed
57 58 59 60 61 62 63 64 65 66
	      (gnus-override-method nil))
	 (message "nnregistry: requesting article `%s' in group `%s'"
		  id group)
	 (and group
	      (gnus-check-group group)
	      (gnus-request-article id group buffer)))))

(provide 'nnregistry)

;;; nnregistry.el ends here