Mercurial > emacs
changeset 32981:6a62ea78ba04
2000-10-27 Dave Love <fx@gnu.org>
* gnus.el: Don't require custom. Don't require message at top
level.
(gnus-message-archive-method): Require message here.
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus.el (gnus-xmas-define): Defalias gnus-overlay-buffer,
gnus-overlay-start.
* gnus.el (gnus-agent-fetching): New variable.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 27 Oct 2000 19:15:42 +0000 |
| parents | 3e47b3d08800 |
| children | 36a2f5c43e8f |
| files | lisp/gnus/gnus.el |
| diffstat | 1 files changed, 17 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus.el Fri Oct 27 19:02:14 2000 +0000 +++ b/lisp/gnus/gnus.el Fri Oct 27 19:15:42 2000 +0000 @@ -4,6 +4,7 @@ ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> +;; Maintainer: bugs@gnus.org ;; Keywords: news, mail ;; This file is part of GNU Emacs. @@ -32,8 +33,6 @@ (eval-when-compile (require 'cl)) (require 'mm-util) -(require 'message) - (defgroup gnus nil "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." :group 'news @@ -281,6 +280,8 @@ (defalias 'gnus-delete-overlay 'delete-overlay) (defalias 'gnus-overlay-put 'overlay-put) (defalias 'gnus-move-overlay 'move-overlay) + (defalias 'gnus-overlay-buffer 'overlay-buffer) + (defalias 'gnus-overlay-start 'overlay-start) (defalias 'gnus-overlay-end 'overlay-end) (defalias 'gnus-extent-detached-p 'ignore) (defalias 'gnus-extent-start-open 'ignore) @@ -840,7 +841,6 @@ ;;; Do the rest. -(require 'custom) (require 'gnus-util) (require 'nnheader) @@ -944,13 +944,16 @@ :type 'gnus-select-method) (defcustom gnus-message-archive-method - `(nnfolder - "archive" - (nnfolder-directory ,(nnheader-concat message-directory "archive")) - (nnfolder-active-file - ,(nnheader-concat message-directory "archive/active")) - (nnfolder-get-new-mail nil) - (nnfolder-inhibit-expiry t)) + (progn + ;; Don't require it at top level to avoid circularity. + (require 'message) + `(nnfolder + "archive" + (nnfolder-directory ,(nnheader-concat message-directory "archive")) + (nnfolder-active-file + ,(nnheader-concat message-directory "archive/active")) + (nnfolder-get-new-mail nil) + (nnfolder-inhibit-expiry t))) "*Method used for archiving messages you've sent. This should be a mail method. @@ -1506,6 +1509,7 @@ ;;; Internal variables +(defvar gnus-agent-gcc-header "X-Gnus-Agent-Gcc") (defvar gnus-agent-meta-information-header "X-Gnus-Agent-Meta-Information") (defvar gnus-group-get-parameter-function 'gnus-group-get-parameter) (defvar gnus-original-article-buffer " *Original Article*") @@ -1515,6 +1519,9 @@ (defvar gnus-agent nil "Whether we want to use the Gnus agent or not.") +(defvar gnus-agent-fetching nil + "Whether Gnus agent is in fetching mode.") + (defvar gnus-command-method nil "Dynamically bound variable that says what the current backend is.")