rmail summary movement not skipping deleted messages

[Ryan Yeske]

mark some messages as deleted in RMAIL, and use n and p in the summary
buffer to move past them.  The deleted messages should be skipped, but
aren't.  This patch fixes it.

*** rmailsum.el 06 Feb 2006 13:58:41 -0800      1.142
--- rmailsum.el 09 Mar 2006 12:50:38 -0800      
***************
*** 535,541 ****
        (search (if (> number 0) 're-search-forward 're-search-backward))
        (non-del-msg-found nil))
      (while (and (> count 0) (setq non-del-msg-found
!                                 (or (funcall search "^....[^D]" nil t)
                                      non-del-msg-found)))
        (setq count (1- count))))
    (beginning-of-line)
--- 535,541 ----
        (search (if (> number 0) 're-search-forward 're-search-backward))
        (non-del-msg-found nil))
      (while (and (> count 0) (setq non-del-msg-found
!                                 (or (funcall search "^.....[^D]" nil t)
                                      non-del-msg-found)))
        (setq count (1- count))))
    (beginning-of-line)



In GNU Emacs 22.0.50.12 (i386-unknown-openbsd3.8, X toolkit)
 of 2006-03-05 on cut.bc.hsia.telus.net
configured using `configure 'CFLAGS=-I/usr/local/include' 
'LDFLAGS=-L/usr/local/lib''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Diff

Minor modes in effect:
  vc-parent-buffer: rmailsum.el
  t: t
  display-time-mode: t
  iswitchb-mode: t
  auto-image-file-mode: t
  rcirc-track-minor-mode: t
  show-paren-mode: t
  auto-compression-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t

Recent input:
. C-f C-f C-d D ESC C-x C-x b RET p p d p n p p n n 
n p p C-n u C-x b RET C-x o C-x b # e m DEL DEL r c 
r DEL i r c RET C-x o C-a C-x 1 C-p ESC < C-v C-v C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-p C-x C-s C-x v = C-x 1 C-x h ESC C-g ESC w ESC 
x r e p o r t - e m a TAB b u g RET

Recent messages:
Mark set [2 times]
rmail-summary-next-msg
(No new mail has arrived)
Computing summary lines...done
rmail-summary-next-msg
Mark set
Saving file /home/rcyeske/contrib/emacs/lisp/mail/rmailsum.el...
Wrote /home/rcyeske/contrib/emacs/lisp/mail/rmailsum.el
Mark set [2 times]
Loading emacsbug...done