X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnheader.el;h=84da0dadbfd57e4946adccdfc761f52c93ec0c1c;hp=85a69fc0ced40730d16a28de1ea02d2b69d054c6;hb=bac60fbae154e68d1460824604efe7a16af09fdb;hpb=b0cdd337e3c7babd0c42cb7d945266d9b653258b

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 85a69fc0c..84da0dadb 100644
--- 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)