🚀 go-pugleaf

In GNU Emacs 19.27.1 (sparc-sun-sunos4.1.3, X toolkit) of Wed Sep 14 1994 on jello

The rmail-summary-delete-forward function, normally bound to `d' in
RMAIL summary mode, is supposed to move to the next non-deleted
message after deleting the current one, but it does not if the message
numbers are greater than 1000 because it expects there to be at least
one space at the beginning of the line.  This patch seems to fix the
problem:

Mon Sep 26 16:47:50 1994  Joe Ramey <ramey@csc.ti.com>

        * rmailsum.el (rmail-summary-delete-forward): Regexp for
	recognizing deleted message should not require a space at the
	beginning of the line.


*** lisp/rmailsum.el.ORIG       Sat Sep 10 15:37:07 1994
--- lisp/rmailsum.el    Mon Sep 26 16:43:02 1994
***************
*** 431,437 ****
        (rmail-summary-mark-deleted del-msg)
        (while (and (not (if backward (bobp) (eobp)))
                  (save-excursion (beginning-of-line)
!                                 (looking-at " +[0-9]+D")))
        (forward-line (if backward -1 1))))))
  
  (defun rmail-summary-delete-backward ()
--- 431,437 ----
        (rmail-summary-mark-deleted del-msg)
        (while (and (not (if backward (bobp) (eobp)))
                  (save-excursion (beginning-of-line)
!                                 (looking-at " *[0-9]+D")))
        (forward-line (if backward -1 1))))))
  
  (defun rmail-summary-delete-backward ()