Commit 48df946a authored by Dave Love's avatar Dave Love
Browse files

2000-10-27 Dave Love <>

	* gnus.el: Don't require custom.  Don't require message at top
	(gnus-message-archive-method): Require message here.
2000-10-27  ShengHuo ZHU  <>

	* gnus.el (gnus-xmas-define): Defalias gnus-overlay-buffer,
	* gnus.el (gnus-agent-fetching): New variable.
parent 467d5bfc
......@@ -4,6 +4,7 @@
;; Author: Masanobu UMEDA <>
;; Lars Magne Ingebrigtsen <>
;; Maintainer:
;; 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 @@ be set in `.emacs' instead."
(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 @@ be set in `.emacs' instead."
;;; Do the rest.
(require 'custom)
(require 'gnus-util)
(require 'nnheader)
......@@ -944,13 +944,16 @@ see the manual for details."
:type 'gnus-select-method)
(defcustom gnus-message-archive-method
(nnfolder-directory ,(nnheader-concat message-directory "archive"))
,(nnheader-concat message-directory "archive/active"))
(nnfolder-get-new-mail nil)
(nnfolder-inhibit-expiry t))
;; Don't require it at top level to avoid circularity.
(require 'message)
(nnfolder-directory ,(nnheader-concat message-directory "archive"))
,(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 @@ If nil, no default charset is assumed when posting."
;;; 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 @@ If nil, no default charset is assumed when posting."
(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.")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment