From xemacs-m  Mon May  5 04:29:44 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id EAA21646
	for <xemacs-beta@xemacs.org>; Mon, 5 May 1997 04:29:42 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id LAA16091; Mon, 5 May 1997 11:29:37 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Update of `log-message-ignore-regexp'
X-Save-Project-Gutenberg: <URL:http://www.promo.net/pg/nl/pgny_nov96.html>
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 05 May 1997 11:29:36 +0200
Message-ID: <kigyb9uferj.fsf@jagor.srce.hr>
Lines: 88
X-Mailer: Gnus v5.4.50/XEmacs 19.15

Here is the patch that updates `log-message-ignore-regexp', which
doesn't seem to have been touched since 19.12 or so.  For example, it
won't kill of Gnus 5 messages, etc.  I have introduced better
anchoring at some regexps, which might speed things up, but I've also
introduced new regexps which will slow it down.  Boils to the same
thing speedwise, I guess.

--- simple.el.orig	Mon May  5 10:44:32 1997
+++ simple.el	Mon May  5 11:22:49 1997
@@ -3102,27 +3102,56 @@
   "Maximum size of the \" *Message-Log*\" buffer.  See `log-message'.")
 
 (defvar log-message-ignore-regexps
-  '("^Mark set$"
-    "^Undo!$"
-    "^Undo\\.\\.\\.$"
-    "^Quit$"
+  '(;; Often-seen messages
+    "^$"				; empty message
+    "^Mark set$"
     "^\\(Beginning\\|End\\) of buffer$"
+    "^Quit$"
+    "^Killing [0-9]+ characters$"
+    ;; saving
+    "^Saving file .*\\.\\.\\.$"		; note: cannot ignore ^Wrote, because
+					; it would kill off too much stuff.
+    "^(No changes need to be saved)$"
+    "^(No files need saving)$"
+    ;; undo, with the output of redo.el
+    "^Undo[!.]+$"
+    "^Redo[!.]+$"
+    ;; M-x compile
+    "^Parsing error messages\\.\\.\\."
+    ;; M-!
+    "^(Shell command completed with no output)"
+    ;; font-lock
     "^Fontifying"
+    ;; isearch
     "^\\(Failing \\)?\\([Ww]rapped \\)?\\([Rr]egexp \\)?I-search\\( backward\\)?:"
     "^Mark saved where search started$"
+    ;; menus
+    "^Selecting menu item"
+    ;; completions
     "^Making completion list"
-    "^Matches "					; paren-matching message
+    "^Matches "				; paren-matching message
+    ;; help
     "^Type .* to \\(remove help\\|restore the other\\) window."
-    "^M-x .* (bound to key"			; teach-extended-commands
-    "^(No changes need to be saved)$"
-    "^(No files need saving)$"
-    "^\\(Parsing messages\\|Reading attributes\\|Generating summary\\|Building threads\\|Converting\\)\\.\\.\\. [0-9]+$"	; vm
-    "^End of message \d+"			; vm
-    "^Parsing error messages\\.\\.\\.[0-9]+"	; compile
-    "^Parsed [0-9]+ of [0-9]+ ([0-9]+%)$"	; w3
-    "^\\(Formatting Summary\\|Reading active file\\|Checking new news\\|Looking for crossposts\\|Marking crossposts\\|MHSPOOL:\\|NNSPOOL:\\|NNTP:\\|\\(Uns\\|S\\)ubscribing new newsgroups\\)\\.\\.\\. *[0-9]+%$"	; gnus
-    "^Adding glyphs\\.\\.\\. ([0-9]+%)\\( done\\)?$"	; outl-mouse
-    "^->"				        ; bbdb prompt
+    "^M-x .* (bound to key"		; teach-extended-commands
+    ;; VM
+    "^\\(Parsing messages\\|Reading attributes\\|Generating summary\\|Building threads\\|Converting\\)\\.\\.\\. [0-9]+$"
+    "^End of message"			; + Gnus
+    ;; Gnus
+    "^No news is no news$"
+    "^No more\\( unread\\)? newsgroups$"
+    "^Opening [^ ]+ server\\.\\.\\."
+    "^[^:]+: Reading incoming mail"
+    "^Getting mail from "
+    "^\\(Generating Summary\\|Sorting threads\\|Making sparse threads\\|Scoring\\|Checking new news\\|Expiring articles\\|Sending\\)\\.\\.\\."
+    "^\\(Fetching headers for\\|Retrieving newsgroup\\|Reading active file\\)"
+    "^No more\\( unread\\)? articles"
+    "^Deleting article "
+    ;; W3
+    "^Parsed [0-9]+ of [0-9]+ ([0-9]+%)"
+    ;; outl-mouse
+    "^Adding glyphs\\.\\.\\."
+    ;; bbdb
+    "^->"
     )
   "List of regular expressions matching messages which shouldn't be logged.
 See `log-message'.  


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
"Beware of bugs in the above code; I have only proved it correct,
not tried it."                                    -- Donald Knuth

