;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
;;; Modified by Stephen Gildea 1988. gildea@bbn.com
-(defconst mh-e-RCS-id "$Header: /home/gd/gnu/emacs/19.0/lisp/RCS/mh-e.el,v 1.11 1993/06/05 02:51:21 rms Exp jimb $")
+(defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.15 1993/07/20 04:35:00 rms Exp rms $")
;;; Code:
(save-excursion
(goto-char (point))
(or (bolp) (forward-line 1))
- (while (< (point) (mark))
+ (while (< (point) (mark t))
(insert mh-ins-string)
(forward-line 1))))
"Hook to run citation function.
(set-buffer (get-buffer-create " *mh-temp*"))
(erase-buffer)
(mh-exec-cmd-output "mhpath" nil mh-draft-folder "new")
- (buffer-substring (point) (1- (mark)))))
+ (buffer-substring (point) (1- (mark t)))))
(defun mh-next-msg ()
(if mh-delete-yanked-msg-window
(delete-windows-on mh-show-buffer))
(set-buffer mh-show-buffer) ; Find displayed message
- (let ((mh-ins-str (cond ((mark t)
+ (let ((mh-ins-str (cond (mark-active
(buffer-substring (region-beginning)
(region-end)))
((eq 'body mh-yank-from-start-of-msg)