(nnmail-cache-fetch-group): Don't return "" (empty

string) as group name in case we have a CRLF in the file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index faf031f..50515ce 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-06  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * 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  <harder@ifa.au.dk>
 
        * rfc1843.el (rfc1843-decode-loosely): Move to mime customization
 2002-09-04  Jesper harder  <harder@ifa.au.dk>
 
        * rfc1843.el (rfc1843-decode-loosely): Move to mime customization

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index b640ae8..c84d4f1 100644 (file)
--- 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")
       (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))))))))
          (forward-char 1)
          (buffer-substring (point)
                            (progn (end-of-line) (point))))))))