Gnus development mailing list
 help / color / mirror / Atom feed
* [PATCH] Possible infinite loop in nnmail-search-unix-mail-delim
@ 1996-11-07 17:12 Steven L Baur
  0 siblings, 0 replies; only message in thread
From: Steven L Baur @ 1996-11-07 17:12 UTC (permalink / raw)


A line like '^From the help on query-replace-regexp:$' causes an
infinite loop when processing a Unix mailbox.

===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.53
diff -u -r1.53 ChangeLog
--- ChangeLog	1996/11/07 04:02:49	1.53
+++ ChangeLog	1996/11/07 17:07:55
@@ -1,3 +1,8 @@
+Thu Nov  7 09:07:32 1996  Steven L Baur  <steve@miranova.com>
+
+	* nnmail.el (nnmail-search-unix-mail-delim): Take better care in
+	ignoring bogus From_ lines.
+
 Thu Nov  7 00:14:45 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
 	* gnus-win.el (gnus-delete-windows-in-gnusey-frames): New function.
@@ -90,6 +95,11 @@
 Tue Nov  5 23:43:34 1996  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Red Gnus v0.54 is released.
+
+Wed Nov  6 14:53:39 1996  Steven L Baur  <steve@miranova.com>
+
+	* gnus-msg.el (gnus-post-news): Allow existing Newsgroups: header to
+	override the setting of the group parameter to-group.
 
 Tue Nov  5 22:34:01 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 

===================================================================
RCS file: RCS/nnmail.el,v
retrieving revision 1.25
diff -u -r1.25 nnmail.el
--- nnmail.el	1996/11/07 04:02:49	1.25
+++ nnmail.el	1996/11/07 17:00:49
@@ -641,15 +641,16 @@
     (while (not found)
       (if (not (re-search-forward "^From " nil t))
 	  (setq found 'no)
-	(beginning-of-line)
-	(when (and (or (bobp)
-		       (save-excursion
-			 (forward-line -1)
-			 (= (following-char) ?\n)))
-		   (save-excursion
-		     (forward-line 1)
-		     (looking-at "[^ \t:]+[ \t]*:")))
-	  (setq found 'yes))))
+	(save-excursion
+	  (beginning-of-line)
+	  (when (and (or (bobp)
+			 (save-excursion
+			   (forward-line -1)
+			   (= (following-char) ?\n)))
+		     (save-excursion
+		       (forward-line 1)
+		       (looking-at "[^ \t:]+[ \t]*:")))
+	    (setq found 'yes)))))
     (eq found 'yes)))
 
 (defun nnmail-process-unix-mail-format (func artnum-func)

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
What are the last two letters of "doesn't" and "can't"?
Coincidence?  I think not.


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~1996-11-07 17:12 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-11-07 17:12 [PATCH] Possible infinite loop in nnmail-search-unix-mail-delim Steven L Baur

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).