From: yamaoka <yamaoka>
Date: Tue, 12 Jan 1999 06:31:23 +0000 (+0000)
Subject: * (nnmail-article-group): Don't infloop.
X-Git-Tag: gnus-6_10-199901121900~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=36daeba53b76e3a8ba0f23ef3f17d46eab20769f;p=elisp%2Fgnus.git-

* (nnmail-article-group): Don't infloop.
(nnmail-split-header-length-limit): New variable.
---

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 524bb4b..697dd9c 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -444,6 +444,11 @@ parameter.  It should return nil, `warn' or `delete'."
 		 (const warn)
 		 (const delete)))
 
+(defcustom nnmail-split-header-length-limit 1024
+  "Header lines longer than this limit are excluded from the split function."
+  :group 'nnmail
+  :type 'integer)
+
 ;;; Internal variables.
 
 (defvar nnmail-split-history nil
@@ -1083,10 +1088,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) 1024)
-	      (gnus-delete-line)
-	    (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)