From: yamaoka <yamaoka>
Date: Tue, 12 Jan 1999 06:32:10 +0000 (+0000)
Subject: * (nnmail-article-group): Don't infloop.
X-Git-Tag: pgnus-ichikawa-199901121900~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1b4ba42ab8610b40b9562dda9c73c866d6b693cd;p=elisp%2Fgnus.git-

* (nnmail-article-group): Don't infloop.
---

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 6362780..ce60fac 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1066,10 +1066,10 @@ FUNC will be called with the group name to determine the article number."
 	;; existence to process.
 	(goto-char (point-min))
 	(while (not (eobp))
-	  (end-of-line)
-	  (if (> (current-column) nnmail-split-header-length-limit)
-	      (delete-region (point) (progn (end-of-line) (point)))
-	    (forward-line 1)))
+	  (unless (< (move-to-column nnmail-split-header-length-limit)
+		     nnmail-split-header-length-limit)
+	    (delete-region (point) (progn (end-of-line) (point))))
+	  (forward-line 1))
 	;; Allow washing.
 	(goto-char (point-min))
 	(run-hooks 'nnmail-split-hook)