message anything to the user.
Also check in nnmail stuff I forgot to check in.
2010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
2010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus.el (gnus-continuum-version): Make inactive, since it doesn't
+ really message anything to the user.
+
* nnmail.el (nnmail-article-group): Allow using the fancy split method
directly.
* nnmail.el (nnmail-article-group): Allow using the fancy split method
directly.
(defun gnus-continuum-version (&optional version)
"Return VERSION as a floating point number."
(defun gnus-continuum-version (&optional version)
"Return VERSION as a floating point number."
(unless version
(setq version gnus-version))
(when (or (string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" version)
(unless version
(setq version gnus-version))
(when (or (string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" version)
(setq nnmail-split-trace nil))
(if (or (and (symbolp nnmail-split-methods)
(fboundp nnmail-split-methods))
(setq nnmail-split-trace nil))
(if (or (and (symbolp nnmail-split-methods)
(fboundp nnmail-split-methods))
+ (and (listp nnmail-split-methods)
;; Not a regular split method, so it has to be a
;; fancy one.
;; Not a regular split method, so it has to be a
;; fancy one.
- (not (let ((top-element (car-safe ruleset)))
+ (not (let ((top-element (car-safe nnmail-split-methods)))
(and (= 2 (length top-element))
(stringp (nth 0 top-element))
(stringp (nth 1 top-element)))))))
(and (= 2 (length top-element))
(stringp (nth 0 top-element))
(stringp (nth 1 top-element)))))))