From 36daeba53b76e3a8ba0f23ef3f17d46eab20769f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 12 Jan 1999 06:31:23 +0000 Subject: [PATCH] * (nnmail-article-group): Don't infloop. (nnmail-split-header-length-limit): New variable. --- lisp/nnmail.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) 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) -- 1.7.10.4