Replace Lisp calls to delete-backward-char by delete-char.

[bpt/emacs.git] / lisp / gnus / nndoc.el

diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el
index 981570c..375e300 100644 (file)
--- a/lisp/gnus/nndoc.el
+++ b/lisp/gnus/nndoc.el
@@ -741,7 +741,7 @@ from the document.")
        (setq p (1+ (nth 3 blk)))))
     (goto-char begin)
     (while (re-search-forward "\r$" nil t)
-      (delete-backward-char 1))
+      (delete-char -1))
     (when head
       (goto-char begin)
       (when (search-forward "\n\n" nil t)