diff options
| author | Richard M. Stallman | 1994-09-27 05:37:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-27 05:37:06 +0000 |
| commit | 7434015f911f2601f7734079aed47a66d7071e4a (patch) | |
| tree | a84e013c27ae232c4fe596c757cfeb22d8cfd5b4 /lisp | |
| parent | c5af3bb92d08949b67f1af50d17e439e73555834 (diff) | |
| download | emacs-7434015f911f2601f7734079aed47a66d7071e4a.tar.gz emacs-7434015f911f2601f7734079aed47a66d7071e4a.zip | |
(rmail-summary-delete-forward): Regexp for recognizing deleted message
should not require a space at the beginning of the line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmailsum.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 67a4f72c02a..2f7a8d4b47e 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -431,7 +431,7 @@ With prefix argument, delete and move backward." | |||
| 431 | (rmail-summary-mark-deleted del-msg) | 431 | (rmail-summary-mark-deleted del-msg) |
| 432 | (while (and (not (if backward (bobp) (eobp))) | 432 | (while (and (not (if backward (bobp) (eobp))) |
| 433 | (save-excursion (beginning-of-line) | 433 | (save-excursion (beginning-of-line) |
| 434 | (looking-at " +[0-9]+D"))) | 434 | (looking-at " *[0-9]+D"))) |
| 435 | (forward-line (if backward -1 1)))))) | 435 | (forward-line (if backward -1 1)))))) |
| 436 | 436 | ||
| 437 | (defun rmail-summary-delete-backward () | 437 | (defun rmail-summary-delete-backward () |