🚀 go-pugleaf

ada writes:
: I reported this bug in 5.33 and it still appearred in 5.35.
: 
: When transient-mark-mode is set vm-mail-yank-default:
: 
:   1.  creates the buffer
:   2.  includes the message
:   3.  writes the citation
:   4.  dies with 'mark is not now set' before setting vm-included-text-prefix
: 
: When transient-mark-mode is not set this behaves normally.
: 

The following patch corrects the behavior for me.  I'm sorry but I'm not 
a lisp programmer so I just called the command, instead of trying to
figure the elisp to do at the patch locations:
  hold = transient-mark-mode;
  ... your code
  transient-mark-mode = hold;

diff -c /share/hal/Gnu/emacs-19.19/vm/vm-reply.el~ /share/hal/Gnu/emacs-19.19/vm/vm-reply.el
*** /share/hal/Gnu/emacs-19.19/vm/vm-reply.el~	Sat Aug 14 14:10:56 1993
--- /share/hal/Gnu/emacs-19.19/vm/vm-reply.el	Thu Aug 26 11:21:45 1993
***************
*** 238,243 ****
--- 238,244 ----
    (let ((b (current-buffer)) (start (point)) mp end)
      (save-restriction
        (widen)
+       (transient-mark-mode nil)
        (save-excursion
  	(set-buffer (marker-buffer (vm-start-of message)))
  	(save-restriction
***************
*** 261,267 ****
  	(cond
  	 (mail-citation-hook (run-hooks 'mail-citation-hook))
  	 (mail-yank-hooks    (run-hooks 'mail-yank-hooks))
! 	 (t (vm-mail-yank-default message)))))))
  
  (defun vm-mail-send-and-exit (arg)
    "Just like mail-send-and-exit except that VM flags the appropriate message(s)
--- 262,269 ----
  	(cond
  	 (mail-citation-hook (run-hooks 'mail-citation-hook))
  	 (mail-yank-hooks    (run-hooks 'mail-yank-hooks))
! 	 (t (vm-mail-yank-default message)))
! 	(transient-mark-mode t)))))
  
  (defun vm-mail-send-and-exit (arg)
    "Just like mail-send-and-exit except that VM flags the appropriate message(s)