diff options
author | Richard M. Stallman <[email protected]> | 1994-01-08 13:57:29 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-01-08 13:57:29 +0000 |
commit | 94eeb96a5413de3745ab8e7e18eb050db1fa401c (patch) | |
tree | 28f89f4bf5390f5ac558da743bd8e550f7aa9e4e /lisp | |
parent | 80e4aa30c47177c13230af7317e3f206ed0537cd (diff) |
(rmail-summary-delete-forward): Fix regexp
used for recognizing deleted message.
(rmail-summary-output, rmail-summary-output-to-rmail-file):
Use rmail-summary-delete-forward.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mail/rmailsum.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 5bcbc2f5ae..46210dee5f 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -409,7 +409,8 @@ With prefix argument, delete and move backward." (pop-to-buffer rmail-summary-buffer) (rmail-summary-mark-deleted del-msg) (while (and (not (if backward (bobp) (eobp))) - (save-excursion (beginning-of-line) (looking-at " [0-9]+D"))) + (save-excursion (beginning-of-line) + (looking-at " +[0-9]+D"))) (forward-line (if backward -1 1)))))) (defun rmail-summary-delete-backward () @@ -1042,7 +1043,7 @@ buffer visiting that file." (let ((rmail-delete-after-output nil)) (call-interactively 'rmail-output-to-rmail-file))) (if rmail-delete-after-output - (rmail-summary-delete-message nil))) + (rmail-summary-delete-forward nil))) (defun rmail-summary-output () "Append this message to Unix mail file named FILE-NAME." @@ -1052,7 +1053,7 @@ buffer visiting that file." (let ((rmail-delete-after-output nil)) (call-interactively 'rmail-output))) (if rmail-delete-after-output - (rmail-summary-delete-message nil))) + (rmail-summary-delete-forward nil))) ;; Sorting messages in Rmail Summary buffer. |