1 |
;;; nndb.el --- nndb access for Gnus |
;;; nndb.el --- nndb access for Gnus |
2 |
|
|
3 |
;; Copyright (C) 1997, 1998, 2000, 2003, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 1998, 2000, 2003, 2004, 2005 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
7 |
;; Kai Grossjohann <grossjohann@ls6.informatik.uni-dortmund.de> |
;; Kai Grossjohann <grossjohann@ls6.informatik.uni-dortmund.de> |
51 |
;;- |
;;- |
52 |
;; Register nndb with known select methods. |
;; Register nndb with known select methods. |
53 |
|
|
54 |
(gnus-declare-backend "nndb" 'mail 'respool 'address 'prompt-address) |
(require 'gnus-start) |
55 |
|
(unless (assoc "nndb" gnus-valid-select-methods) |
56 |
|
(gnus-declare-backend "nndb" 'mail 'respool 'address 'prompt-address)) |
57 |
|
|
58 |
;;; Code: |
;;; Code: |
59 |
|
|
62 |
(require 'nntp) |
(require 'nntp) |
63 |
(eval-when-compile (require 'cl)) |
(eval-when-compile (require 'cl)) |
64 |
|
|
|
(eval-and-compile |
|
|
(autoload 'news-setup "rnewspost") |
|
|
(autoload 'news-reply-mode "rnewspost") |
|
|
(autoload 'cancel-timer "timer") |
|
|
(autoload 'telnet "telnet" nil t) |
|
|
(autoload 'telnet-send-input "telnet" nil t) |
|
|
(autoload 'gnus-declare-backend "gnus-start")) |
|
|
|
|
65 |
;; Declare nndb as derived from nntp |
;; Declare nndb as derived from nntp |
66 |
|
|
67 |
(nnoo-declare nndb nntp) |
(nnoo-declare nndb nntp) |