diff lisp/mail/rmail.el @ 819:5bbabfcef929

*** empty log message ***

--- a/lisp/mail/rmail.el	Sat Jul 18 20:06:40 1992 +0000
+++ b/lisp/mail/rmail.el	Sun Jul 19 01:07:07 1992 +0000
@@ -1214,17 +1214,12 @@
 (defun rmail-delete-forward (&optional backward)
   "Delete this message and move to next nondeleted one.
 Deleted messages stay in the file until the \\[rmail-expunge] command is given.
-With prefix argument, delete and move backward.  If there is no nondeleted
-message to move to in the preferred or specified direction, move in the
-other direction."
+With prefix argument, delete and move backward."
   (interactive "P")
   (rmail-set-attribute "deleted" t)
   (condition-case ()
       (rmail-next-undeleted-message (if backward -1 1))
-    (error
-     (condition-case ()
-	 (rmail-previous-undeleted-message (if backward -1 1))
-       (error nil)))))
+    (error nil)))
 
 (defun rmail-delete-backward ()
   "Delete this message and move to previous nondeleted one.