(gnus-registry-cache-whitespace)

(gnus-registry-action, gnus-registry-spool-action)
(gnus-registry-split-fancy-with-parent): changed message levels
from 5 to 3 or 7, as needed

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae1fe19..5145988 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2004-04-27  Teodor Zlatanov  <tzz@lifelogs.com>
 
 2004-04-27  Teodor Zlatanov  <tzz@lifelogs.com>
 

+       * gnus-registry.el (gnus-registry-cache-whitespace)
+       (gnus-registry-action, gnus-registry-spool-action)
+       (gnus-registry-split-fancy-with-parent): changed message levels
+       from 5 to 3 or 7, as needed
+

        * spam.el (spam-summary-prepare-exit)
        (spam-mark-junk-as-spam-routine, spam-fetch-field-fast)
        (spam-split, spam-find-spam, spam-log-undo-registration)
        * spam.el (spam-summary-prepare-exit)
        (spam-mark-junk-as-spam-routine, spam-fetch-field-fast)
        (spam-split, spam-find-spam, spam-log-undo-registration)

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index bce7729..a84ea83 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -213,7 +213,7 @@ way."
 ;; Idea from Dan Christensen <jdc@chow.mat.jhu.edu>
 ;; Save the gnus-registry file with extra line breaks.
 (defun gnus-registry-cache-whitespace (filename)
 ;; Idea from Dan Christensen <jdc@chow.mat.jhu.edu>
 ;; Save the gnus-registry file with extra line breaks.
 (defun gnus-registry-cache-whitespace (filename)

-  (gnus-message 5 "Adding whitespace to %s" filename)
+  (gnus-message 7 "Adding whitespace to %s" filename)

   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward "^(\\|(\\\"" nil t)
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward "^(\\|(\\\"" nil t)


@@ -316,7 +316,7 @@ way."
         (to (if to (gnus-group-guess-full-name-from-command-method to) nil))
         (to-name (if to to "the Bit Bucket"))
         (old-entry (gethash id gnus-registry-hashtb)))
         (to (if to (gnus-group-guess-full-name-from-command-method to) nil))
         (to-name (if to to "the Bit Bucket"))
         (old-entry (gethash id gnus-registry-hashtb)))

-    (gnus-message 5 "Registry: article %s %s from %s to %s"
+    (gnus-message 7 "Registry: article %s %s from %s to %s"

                  id
                  (if method "respooling" "going")
                  from
                  id
                  (if method "respooling" "going")
                  from


@@ -334,7 +334,7 @@ way."
   (let ((group (gnus-group-guess-full-name-from-command-method group)))
     (when (and (stringp id) (string-match "\r$" id))
       (setq id (substring id 0 -1)))
   (let ((group (gnus-group-guess-full-name-from-command-method group)))
     (when (and (stringp id) (string-match "\r$" id))
       (setq id (substring id 0 -1)))

-    (gnus-message 5 "Registry: article %s spooled to %s"
+    (gnus-message 7 "Registry: article %s spooled to %s"

                  id
                  group)
     (gnus-registry-add-group id group subject sender)))
                  id
                  group)
     (gnus-registry-add-group id group subject sender)))


@@ -399,7 +399,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                 (when (and sender res)
                   (gnus-message
                    ;; raise level of messaging if gnus-registry-track-extra
                 (when (and sender res)
                   (gnus-message
                    ;; raise level of messaging if gnus-registry-track-extra

-                   (if gnus-registry-track-extra 5 9)
+                   (if gnus-registry-track-extra 7 9)

                    "%s (extra tracking) traced sender %s to group %s"
                    "gnus-registry-split-fancy-with-parent"
                    sender
                    "%s (extra tracking) traced sender %s to group %s"
                    "gnus-registry-split-fancy-with-parent"
                    sender


@@ -423,7 +423,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                 (when (and subject res)
                   (gnus-message
                    ;; raise level of messaging if gnus-registry-track-extra
                 (when (and subject res)
                   (gnus-message
                    ;; raise level of messaging if gnus-registry-track-extra

-                   (if gnus-registry-track-extra 5 9)
+                   (if gnus-registry-track-extra 7 9)

                    "%s (extra tracking) traced subject %s to group %s"
                    "gnus-registry-split-fancy-with-parent"
                    subject
                    "%s (extra tracking) traced subject %s to group %s"
                    "gnus-registry-split-fancy-with-parent"
                    subject


@@ -431,7 +431,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
           gnus-registry-hashtb))
        (unless single-match
          (gnus-message
           gnus-registry-hashtb))
        (unless single-match
          (gnus-message

-          5
+          3

           "gnus-registry-split-fancy-with-parent: too many extra matches for %s"
           refstr)
          (setq res nil))))
           "gnus-registry-split-fancy-with-parent: too many extra matches for %s"
           refstr)
          (setq res nil))))


@@ -456,7 +456,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
            (setq res short-res))
        ;; else...
        (gnus-message
            (setq res short-res))
        ;; else...
        (gnus-message

-        5 
+        7

         "gnus-registry-split-fancy-with-parent ignored foreign group %s"
         res)
        (setq res nil))))
         "gnus-registry-split-fancy-with-parent ignored foreign group %s"
         res)
        (setq res nil))))