* nnheader.el (nnheader-remove-body): Fix an error of detecting boundary

[gnus] / lisp / nnheader.el

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 85a69fc..84da0da 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -633,8 +633,7 @@ the line could be found."
 (defun nnheader-remove-body ()
   "Remove the body from an article in this current buffer."
   (goto-char (point-min))
-  (when (or (search-forward "\n\n" nil t)
-           (search-forward "\n\r\n" nil t))
+  (when (re-search-forward "\n\r?\n" nil t)
     (delete-region (point) (point-max))))
 
 (defun nnheader-set-temp-buffer (name &optional noerase)