From caa4dcc6b0a2a78e1a109c9e92a39207ddf9ba21 Mon Sep 17 00:00:00 2001 From: Kai Grossjohann Date: Fri, 6 Sep 2002 12:36:37 +0000 Subject: [PATCH] (nnmail-cache-fetch-group): Don't return "" (empty string) as group name in case we have a CRLF in the file. --- lisp/ChangeLog | 5 +++++ lisp/nnmail.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index faf031f53..50515ceb2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-09-06 Kai Gro,b_(Bjohann + + * nnmail.el (nnmail-cache-fetch-group): Don't return "" (empty + string) as group name in case we have a CRLF in the file. + 2002-09-04 Jesper harder * rfc1843.el (rfc1843-decode-loosely): Move to mime customization diff --git a/lisp/nnmail.el b/lisp/nnmail.el index b640ae818..c84d4f1ba 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1517,7 +1517,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (when (search-backward id nil t) (beginning-of-line) (skip-chars-forward "^\n\r\t") - (unless (eolp) + (unless (looking-at "[\r\n]") (forward-char 1) (buffer-substring (point) (progn (end-of-line) (point)))))))) -- 2.25.1