Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-22
Update from CVS: lisp/nndb.el (require): Remove tcp and duplicate cl.
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-23
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-24
lisp/nnimap.el (nnimap-open-connection): Remove extraneous end-paren
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-25
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-26
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-27
Use the same directory explicit id-tags as Emacs where possible
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-28
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-29
Update from CVS
+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.
2004-09-13 Simon Josefsson <jas@extundo.com>
* dns-mode.el: Add XEmacs auto-mode-alist autoload cookie.
(defun gnus-registry-trim (alist)
"Trim alist to size, using gnus-registry-max-entries."
(if (null gnus-registry-max-entries)
(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
;; 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)
(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
gnus-registry-hashtb)
;; we use the return value of this setq, which is the trimmed alist
"*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
"*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
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
The server has to support NOV for any of this to work."
:group 'gnus-thread
:type '(choice (const :tag "off" nil)
The server has to support NOV for any of this to work."
:group 'gnus-thread
:type '(choice (const :tag "off" nil)
number
(sexp :menu-tag "other" t)))
number
(sexp :menu-tag "other" t)))
(eval-when-compile (require 'cl))
(eval-and-compile
(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"))
(autoload 'telnet-send-input "telnet" nil t)
(autoload 'gnus-declare-backend "gnus-start"))