From 1b4ba42ab8610b40b9562dda9c73c866d6b693cd Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 12 Jan 1999 06:32:10 +0000 Subject: [PATCH] * (nnmail-article-group): Don't infloop. --- lisp/nnmail.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 1.7.10.4