🚀 go-pugleaf

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.

Patch:

*** sendmail.el.~1~	Fri Sep 15 16:24:03 1989
--- sendmail.el	Tue Mar  6 12:07:07 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,304 ----
  		    (beg (point-min)) (end (point-max)))
  		(save-excursion
  		  (set-buffer buffer)
! 		  (save-restriction
! 		    (widen)
! 		    (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))))
-- 
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')