aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/rmail.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 0330791342b..2851034d28f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1217,9 +1217,7 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given.
1217With prefix argument, delete and move backward." 1217With prefix argument, delete and move backward."
1218 (interactive "P") 1218 (interactive "P")
1219 (rmail-set-attribute "deleted" t) 1219 (rmail-set-attribute "deleted" t)
1220 (condition-case () 1220 (rmail-next-undeleted-message (if backward -1 1)))
1221 (rmail-next-undeleted-message (if backward -1 1))
1222 (error nil)))
1223 1221
1224(defun rmail-delete-backward () 1222(defun rmail-delete-backward ()
1225 "Delete this message and move to previous nondeleted one. 1223 "Delete this message and move to previous nondeleted one.