🚀 go-pugleaf

In article <2593@ruuinf.cs.ruu.nl>, piet@cs (Piet van Oostrum) writes:
 `The function mail-do-fcc will insert a message in the buffer if the file
 `mentioned is in memory. However, if the buffer has been narrowed, the
 `contents of the outgoing mail message is put at the end of the narrowed
 `region, rather than the end of the buffer. This can be corrected by doing a
 `widen (inside a save-restriction) in the function. This still does not
 `correctly restore the narrowing, but at least puts the data in the correct
 `place. I got the problem while using VM.
 `
I have got a new patch that does correctly restore the narrowing:

*** sendmail.el.~1~	Fri Sep 15 16:24:03 1989
--- sendmail.el	Tue Mar  6 13:16:31 1990
***************
*** 295,302 ****
  		    (beg (point-min)) (end (point-max)))
  		(save-excursion
  		  (set-buffer buffer)
! 		  (goto-char (point-max))
! 		  (insert-buffer-substring curbuf beg end)))
  	    ;; Else append to the file directly.
  	    (write-region (point-min) (point-max) (car fcc-list) t)))
  	(setq fcc-list (cdr fcc-list))))
--- 295,306 ----
  		    (beg (point-min)) (end (point-max)))
  		(save-excursion
  		  (set-buffer buffer)
! 		  (let ((b (point-min)) (e (point-max)) n)
! 		    (widen)
! 		    (setq n (and (equal b (point-min)) (equal e (point-max))))
! 		    (goto-char (point-max))
! 		    (insert-buffer-substring curbuf beg end)
! 		    (or n (narrow-to-region b e)))))
  	    ;; Else append to the file directly.
  	    (write-region (point-min) (point-max) (car fcc-list) t)))
  	(setq fcc-list (cdr fcc-list))))
-- 
Piet* van Oostrum, Dept of Computer Science, Utrecht University,
Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands.
Telephone: +31-30-531806   Uucp:   uunet!mcsun!hp4nl!ruuinf!piet
Telefax:   +31-30-513791   Internet:  piet@cs.ruu.nl   (*`Pete')