Synch to Oort Gnus 200305011549.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d2ea70..f410024 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,14 @@
 2003-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * dgnushack.el (when): Check whether defadvice is fbound.
+
+2003-05-01  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el (gnus-registry-unregistered-group-regex): new variable
+       (gnus-registry-register-message-ids): use it
+
+2003-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
        * gnus.el (gnus-version-number): Bump.
 
        * gnus.el: Update copyright for several files.
@@ -109,7 +118,7 @@
        Take care of some differences between XEmacs 21.1 and newer
        versions of XEmacs.
 
-2003-04-30  Teodor Zlatanov  <tzz@bwh.harvard.edu>
+2003-04-30  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-split-fancy-with-parent): added
        diagnostic message

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 866935a..505f844 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -473,7 +473,7 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
       (autoload 'custom-declare-face "cus-face" nil t)
       (autoload 'cl-compile-time-init "cl-macs" nil t)
       (autoload 'defadvice "advice" nil nil 'macro))
-    (when (eq emacs-minor-version 4)
+    (unless (fboundp 'defadvice)
       (autoload 'defadvice "advice" nil nil 'macro))
     (autoload 'Info-directory "info" nil t)
     (autoload 'Info-menu "info" nil t)

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 7d80120..324155d 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -49,6 +49,11 @@ The group names are matched, they don't have to be fully qualified."
   :group 'gnus-registry
   :type '(repeat string))
 
+(defcustom gnus-registry-unregistered-group-regex "^nntp"
+  "Group name regex that gnus-registry-register-message-ids won't process."
+  :group 'gnus-registry
+  :type 'regexp)
+
 ;; Function(s) missing in Emacs 20
 (when (memq nil (mapcar 'fboundp '(puthash)))
   (require 'cl)
@@ -151,13 +156,15 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 
 (defun gnus-registry-register-message-ids ()
   "Register the Message-ID of every article in the group"
-  (dolist (article gnus-newsgroup-articles)
-    (let ((id (gnus-registry-fetch-message-id-fast article)))
-      (unless (gnus-registry-fetch-group id)
-       (gnus-message 9 "Registry: Registering article %d with group %s" 
-                     article gnus-newsgroup-name)
-       (gnus-registry-add-group (gnus-registry-fetch-message-id-fast article)
-                                gnus-newsgroup-name)))))
+  (unless (and gnus-registry-unregistered-group-regex
+              (string-match gnus-registry-unregistered-group-regex gnus-newsgroup-name))
+    (dolist (article gnus-newsgroup-articles)
+      (let ((id (gnus-registry-fetch-message-id-fast article)))
+       (unless (gnus-registry-fetch-group id)
+         (gnus-message 9 "Registry: Registering article %d with group %s" 
+                       article gnus-newsgroup-name)
+         (gnus-registry-add-group (gnus-registry-fetch-message-id-fast article)
+                                  gnus-newsgroup-name))))))
 
 (defun gnus-registry-fetch-message-id-fast (article)
   "Fetch the Message-ID quickly, using the internal gnus-data-list function"

diff --git a/texi/ChangeLog b/texi/ChangeLog
index e992b52..08041c4 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-01  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus.texi (Oort Gnus): Add prefix limit feature.
+       (Oort Gnus): Fix last commit.
+
 2003-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.texi (Emacsen): Update.

diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index 68b409a..1abd205 100644 (file)
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -24505,6 +24505,13 @@ It was aliased to @kbd{Y c}
 (@code{gnus-summary-insert-cached-articles}). The new function filters
 out other articles.
 
+@item Some limiting commands accept a @kbd{C-u} prefix to negate the match.
+
+If @kbd{C-u} is used on subject, author or extra headers, i.e., @kbd{/
+s'}, @kbd{/ a}, and @kbd{/ x}
+(@code{gnus-summary-limit-to-@{subject,author,extra@}}) respectively, the
+result will be to display all articles that do not match the expression.
+
 @item
 Group names are treated as UTF-8 by default.
 

diff --git a/texi/gnus.texi b/texi/gnus.texi
index f1ffc8a..8b027a8 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -25161,6 +25161,13 @@ It was aliased to @kbd{Y c}
 (@code{gnus-summary-insert-cached-articles}). The new function filters
 out other articles.
 
+@item Some limiting commands accept a @kbd{C-u} prefix to negate the match.
+
+If @kbd{C-u} is used on subject, author or extra headers, i.e., @kbd{/
+s'}, @kbd{/ a}, and @kbd{/ x}
+(@code{gnus-summary-limit-to-@{subject,author,extra@}}) respectively, the
+result will be to display all articles that do not match the expression.
+
 @item
 Group names are treated as UTF-8 by default.