🚀 go-pugleaf

You needIn article <9307120244.AA05777@mft.neusc.bcm.tmc.edu>,
rick@mft.neusc.bcm.tmc.edu (Rick Gray) writes:
|> Dan Mack(mack@cray.com) noted in gnu.emacs.vm.bug that:
|>  > vm-inlcuded-text-prefix and vm-included-text-attribution-format
|>  >      aren't being "honored" under vm-5.33 when using emacs-19.16.
|>  >
|>  >       Here is what I claim to be a bug:
|>  >
|>  >    o The included text is indented, but the prefix is absent.
|>  >    o The attribution format stuff is also missing "James Doe
|> writes:"
|>  >    o The extra header, X-VM-v5-Data stuff is included, adding to the
|>  >      already confusing message.
|> 
|> I just noticed exactly the same thing on my NeXT also while using
|> emacs-19.16 and vm-5.33.  I tried to poke around and fix it, comparing
|> to vm-4.41, but have been unsuccessful.  If you hear of a solution,
|> please let me know.
|> 
|> thanks,
|> rick
|> --
|> Rick Gray, Division of Neuroscience, Baylor College of Medicine,
|> Houston, Tx 77030 | Phone:(713)798-3346|Internet:
|> rick@mft.neusc.bcm.tmc.edu
|> NeXTMail accepted

mark is different in emacs-19 (why? why not backward compatable? perhaps
the caveat
in the decription should have made us shy away from it's use?)

One must supply it an argument, t , to FORCE it:
mark: a compiled Lisp function.
(mark &optional FORCE)

Return this buffer's mark value as integer; error if mark inactive.
If optional argument FORCE is non-nil, access the mark value
even if the mark is not currently active, and return nil
if there is no mark at all.

If you are using this in an editing command, you are most likely making
a mistake; see the documentation of `set-mark'.

On line 146 of vm-5.33/vm-reply.el, change as follows:
*** vm-5.33/vm-reply.el~	Wed Oct 16 11:47:27 1991
--- vm-5.33/vm-reply.el	Mon Jul 12 16:22:47 1993
***************
*** 143,149 ****
      (delete-region (point) (progn (search-forward "\n\n") (point)))
      (if vm-included-text-attribution-format
  	(insert (vm-sprintf 'vm-included-text-attribution-format message)))
!     (while (and (re-search-forward "^" nil t) (< (point) (mark)))
        (replace-match vm-included-text-prefix t t))))
  
  (defun vm-yank-message-other-folder (folder &optional prefix-argument)
--- 143,149 ----
      (delete-region (point) (progn (search-forward "\n\n") (point)))
      (if vm-included-text-attribution-format
  	(insert (vm-sprintf 'vm-included-text-attribution-format message)))
!     (while (and (re-search-forward "^" nil t) (< (point) (mark t)))
        (replace-match vm-included-text-prefix t t))))
  
  (defun vm-yank-message-other-folder (folder &optional prefix-argument)


- 
			  __	  ______
Michael T.Y. McNamara  -o|  \_____|    |------ 1+(415) 965-3312     
C H R O N O L O G I C  --|__/     |    |       1+(415) 965-2705 FAX 
 --------. Simulation  -----------|>   |------ mac@chronologic.com  
	  `---------		  ------       chrnlgc!mac@{sun,decwrl,sgi,amdahl,kpc}.com