From: yamaoka <yamaoka>
Date: Thu, 1 May 2003 15:56:11 +0000 (+0000)
Subject: Synch to Oort Gnus 200305011549.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b1cce838acede9f1b9bd5c388ef28e07558e837f;p=elisp%2Fgnus.git-

Synch to Oort Gnus 200305011549.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d2ea70..f410024 100644
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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.