🚀 go-pugleaf

>>>>> On 28 Jan 92 20:55:33 GMT, kyle@wendy-fate.uu.net said:


> When I use "r" to reply to a message, then switch buffers to glance
> at the mailbox buffer, the mailbox buffer is unnarrowed (widened). I
> have to "p" and "n" to get vm to re-narrow the buffer to the current
> message.
> 
> Is this a known bug and if so, is there an easy workaround?

	kyle> This is a known 18.56 and 18.57 Emacs display bug, not a VM bug.
	kyle> jwz@lucid.com posted a patch that is said to have fixed the
	kyle> problem, but I've never tried it since we're still using 18.55
	kyle> Emacs here.

Here's what I used. I generated this patch based on some suggestions
posted by jwz%karoshi@lucid.com a while back 

*** emacs-18.57/src/editfns.c	Tue Jan  8 09:28:22 1991
--- editfns.c	Mon Sep 23 12:10:47 1991
***************
*** 158,174 ****
    return buildmark (point);
  }
  
! int
! in_accessible_range (loc)
       int loc;
  {
!   if (loc < BEGV)
!     return BEGV;
!   if (loc > ZV)
!     return ZV;
    return loc;
  }
  
  DEFUN ("goto-char", Fgoto_char, Sgoto_char, 1, 1, "NGoto char: ",
    "One arg, a number.  Set point to that number.\n\
  Beginning of buffer is position (point-min), end is (point-max).")
--- 158,178 ----
    return buildmark (point);
  }
  
! static int
! in_accessible_range (buf, loc)
!      struct buffer *buf;
       int loc;
  {
!   if (loc < BUF_BEGV (buf))
!     return BUF_BEGV (buf);
! 
!   if (loc > BUF_ZV (buf))
!     return BUF_ZV (buf);
! 
    return loc;
  }
  
+ 
  DEFUN ("goto-char", Fgoto_char, Sgoto_char, 1, 1, "NGoto char: ",
    "One arg, a number.  Set point to that number.\n\
  Beginning of buffer is position (point-min), end is (point-max).")
***************
*** 178,184 ****
    register int charno;
    CHECK_NUMBER_COERCE_MARKER (n, 0);
    charno = XINT (n);
!   SET_PT (in_accessible_range (charno));
    return n;
  }
  
--- 182,188 ----
    register int charno;
    CHECK_NUMBER_COERCE_MARKER (n, 0);
    charno = XINT (n);
!   SET_PT (in_accessible_range (current_buffer,charno));
    return n;
  }
  
***************
*** 825,831 ****
    clip_changed = 1;
  
    /* If point is outside the new visible range, move it inside. */
!   SET_BUF_PT (buf, in_accessible_range (BUF_PT (buf)));
  
    return Qnil;
  }
--- 829,835 ----
    clip_changed = 1;
  
    /* If point is outside the new visible range, move it inside. */
!   SET_BUF_PT (buf, in_accessible_range (buf,BUF_PT (buf)));
  
    return Qnil;
  }

--
_______________________________________________________________________
Bill Reynolds                        | 
bill@kepler.ucsd.edu                 |