Gnus development mailing list
 help / color / mirror / Atom feed
* Previous patch to nnmail.el was bogus
@ 1996-11-07 19:12 Steven L Baur
  0 siblings, 0 replies; only message in thread
From: Steven L Baur @ 1996-11-07 19:12 UTC (permalink / raw)


Here is a better version.

===================================================================
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 18:28:32
@@ -641,15 +641,17 @@
     (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)))))
+    (beginning-of-line)
     (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 19: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 19:12 Previous patch to nnmail.el was bogus 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).