Synch to No Gnus 200409170740.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ade4e0..aea2fe0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2004-09-16  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-sum.el (gnus-fetch-old-headers): Added custom choices `t'
+       and `invisible'.
+
+2004-09-10  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el (gnus-registry-trim): watch out for negatives
+       in gnus-registry-trim
+
 2004-09-13  Simon Josefsson  <jas@extundo.com>
 
        * dns-mode.el: Add XEmacs auto-mode-alist autoload cookie.

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index bd405c0..f0d955d 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -267,16 +267,16 @@ way."
 (defun gnus-registry-trim (alist)
   "Trim alist to size, using gnus-registry-max-entries."
   (if (null gnus-registry-max-entries)
-      alist                            ; just return the alist
+      alist                             ; just return the alist
     ;; else, when given max-entries, trim the alist
     (let* ((timehash (make-hash-table
-                    :size 4096
-                    :test 'equal))
-         (trim-length (- (length alist) gnus-registry-max-entries))
-         (trim-length (if (natnump trim-length) trim-length 0)))
+                     :size 4096
+                     :test 'equal))
+          (trim-length (- (length alist) gnus-registry-max-entries))
+          (trim-length (if (natnump trim-length) trim-length 0)))
       (maphash
        (lambda (key value)
-        (puthash key (gnus-registry-fetch-extra key 'mtime) timehash))
+         (puthash key (gnus-registry-fetch-extra key 'mtime) timehash))
        gnus-registry-hashtb)
 
       ;; we use the return value of this setq, which is the trimmed alist

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 88d9d5e..6aeadd9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -73,7 +73,7 @@ it will be killed sometime later."
   "*Non-nil means that Gnus will try to build threads by grabbing old headers.
 If an unread article in the group refers to an older, already read (or
 just marked as read) article, the old article will not normally be
-displayed in the Summary buffer.  If this variable is non-nil, Gnus
+displayed in the Summary buffer.  If this variable is t, Gnus
 will attempt to grab the headers to the old articles, and thereby
 build complete threads.  If it has the value `some', only enough
 headers to connect otherwise loose threads will be displayed.  This
@@ -84,7 +84,9 @@ old headers will be fetched, but none will be displayed.
 The server has to support NOV for any of this to work."
   :group 'gnus-thread
   :type '(choice (const :tag "off" nil)
+                (const :tag "on" t)
                 (const some)
+                (const invisible)
                 number
                 (sexp :menu-tag "other" t)))
 

diff --git a/lisp/nndb.el b/lisp/nndb.el
index 9b25a54..35b29a5 100644 (file)
--- a/lisp/nndb.el
+++ b/lisp/nndb.el
@@ -60,6 +60,10 @@
 (eval-when-compile (require 'cl))
 
 (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"))