🚀 go-pugleaf

   Path: sislnews.csc.ti.com!cauldron!csc.ti.com!cs.utexas.edu!math.ohio-state.edu!magnus.acs.ohio-state.edu!cis.ohio-state.edu!mail.ESrin.ESa.IT!Simon.Marshall
   From: Simon.Marshall@mail.ESrin.ESa.IT (Simon Marshall)
   Newsgroups: gnu.emacs.bug
   Date: 5 Oct 1994 05:20:20 -0400
   Organization: GNUs Not Usenet
   Lines: 38
   Sender: daemon@cis.ohio-state.edu
   Approved: bug-gnu-emacs@prep.ai.mit.edu
   Distribution: gnu

   I noticed this problem too.  I reported the following concise recipe for
   showing it, but I never heard that it has been fixed (which is normally
   what happens)...  It's a really irritating bug that bites most of the time
   when I move around an RMAIL buffer.  I hope it has been fixed!

   In GNU Emacs 19.27.1 (sparc-sun-sunos4.1.3C, X toolkit) of Thu Sep 15 1994 on penelope

   Motion commands when you have a summary buffer appear to skip messages
   that they shouldn't.

   % yow | mail me
   % emacs -q

   M-x rmail RET h C-x o

   RMAIL's modeline shows (1/1).

   % yow | mail me
   % yow | mail me
   % yow | mail me

   Type `g' (RMAIL's modeline shows (2/4)),
   then `d' (RMAIL's modeline shows (4/4)).

   You have skipped to the third (last) new message, rather than the
   second new message.

   Note if you stay in the RMAIL-summary buffer (i.e., do not C-x o), you
   also get a bug when reading the 3 new messages:

   Type `g'.  The fourth mail item is shown as read (the RMAIL-summary buffer
   line for message 4 does not contain `-').

I don't know if it's been fixed or not but here is a fix that seems to
work for me.  Please try it and let me know:

------------------------------------------------------------------------------

Fri Oct  7 16:55:27 1994  Joe Ramey         <ramey@csc.ti.com>

	* rmail.el (rmail-delete-forward): rmail-summary-mark-deleted needs
	rmail-total-messages, so call it with rmail-select-summary.

------------------------------------------------------------------------------


diff -c rmail.el.ORIG rmail.el
*** rmail.el.ORIG       Sat Sep 10 15:39:12 1994
--- rmail.el    Fri Oct  7 16:53:03 1994
***************
*** 1743,1752 ****
    (interactive "P")
    (rmail-set-attribute "deleted" t)
    (let ((del-msg rmail-current-message))
!     (if (rmail-summary-exists)
!       (save-excursion
!         (set-buffer rmail-summary-buffer)
!         (rmail-summary-mark-deleted del-msg)))
      (prog1 (rmail-next-undeleted-message (if backward -1 1))
        (rmail-maybe-display-summary))))
  
--- 1743,1750 ----
    (interactive "P")
    (rmail-set-attribute "deleted" t)
    (let ((del-msg rmail-current-message))
!   (if (rmail-summary-exists)
!       (rmail-select-summary (rmail-summary-mark-deleted del-msg)))
      (prog1 (rmail-next-undeleted-message (if backward -1 1))
        (rmail-maybe-display-summary))))