diff options
| author | Richard M. Stallman | 1992-07-21 19:48:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-07-21 19:48:07 +0000 |
| commit | 2d315ae801433fa9af0463f80d158d2b647ac1d4 (patch) | |
| tree | c1c44ce5f191579d4291226eaab34e51c92a8a1c /lisp | |
| parent | 56c586a87004a67df18d6eed1db1f96e4fbf9ce9 (diff) | |
| download | emacs-2d315ae801433fa9af0463f80d158d2b647ac1d4.tar.gz emacs-2d315ae801433fa9af0463f80d158d2b647ac1d4.zip | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
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. | |||
| 1217 | With prefix argument, delete and move backward." | 1217 | With 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. |