From 1fc34624969db9c6b7c4ca4db3d3406498aa90ec Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 4 Mar 2008 03:52:22 +0000 Subject: [PATCH] (top-level): No need to require gnus when compiling, since unconditionally required near start of file. (gnus-summary-display-while-building): Move definition before use. --- lisp/gnus/ChangeLog | 12 +++++++++--- lisp/gnus/gnus-sum.el | 21 ++++++++++----------- 2 files changed, 19 insertions(+), 14 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4c6dad5872b..e68544a96f9 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,11 +1,17 @@ +2008-03-04 Glenn Morris + + * gnus-sum.el (top-level): No need to require gnus when compiling, + since unconditionally required near start of file. + (gnus-summary-display-while-building): Move definition before use. + 2008-03-03 Stefan Monnier * mm-bodies.el (mm-decode-content-transfer-encoding): Simplify. * gnus-sum.el: Use inhibit-read-only and with-current-buffer. - (gnus-summary-jump-to-group): Consider windows on other displayed frames as - well. Similar changes might be needed elsewhere, but that's the one I've - bumped into during my use. + (gnus-summary-jump-to-group): Consider windows on other displayed + frames as well. Similar changes might be needed elsewhere, but that's + the one I've bumped into during my use. * nndoc.el (nndoc-oe-dbx-type-p): * gnus-msg.el (gnus-debug): diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index c68632c04ff..f4dc4ea43cd 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -1578,7 +1578,6 @@ For example: (if (boundp 'gnus-newsgroup-variables) nil (load "gnus-sum.el" t t t)) - (require 'gnus) (require 'gnus-art))) ;; MIME stuff. @@ -5015,6 +5014,16 @@ If nil, use subject instead." :type 'string :group 'gnus-thread) +(defcustom gnus-summary-display-while-building nil + "If non-nil, show and update the summary buffer as it's being built. +If the value is t, update the buffer after every line is inserted. If +the value is an integer (N), update the display every N lines." + :version "22.1" + :group 'gnus-thread + :type '(choice (const :tag "off" nil) + number + (const :tag "frequently" t))) + (defun gnus-summary-prepare-threads (threads) "Prepare summary buffer from THREADS and indentation LEVEL. THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])' @@ -9796,16 +9805,6 @@ If nil, use to the current newsgroup method." :type 'symbol :group 'gnus-summary-mail) -(defcustom gnus-summary-display-while-building nil - "If non-nil, show and update the summary buffer as it's being built. -If the value is t, update the buffer after every line is inserted. If -the value is an integer (N), update the display every N lines." - :version "22.1" - :group 'gnus-thread - :type '(choice (const :tag "off" nil) - number - (const :tag "frequently" t))) - (defun gnus-summary-respool-article (&optional n method) "Respool the current article. The article will be squeezed through the mail spooling process again, -- 2.39.2