diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-07-17 00:18:04 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-07-17 00:18:04 +0000 |
commit | e112d2f21098d92856fabcf7ec55a3bd7962fe88 (patch) | |
tree | 9759ea5009f17ce4d43d400200814ed2db2f269c /lisp/=mh-e.el | |
parent | e08a694b60101e95ac2f9029746f4a05ff0b140c (diff) | |
download | emacs-e112d2f21098d92856fabcf7ec55a3bd7962fe88.tar.gz |
(mh-yank-hooks): Use (mark t).
(mh-new-draft-name): Likewise.
Diffstat (limited to 'lisp/=mh-e.el')
-rw-r--r-- | lisp/=mh-e.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/=mh-e.el b/lisp/=mh-e.el index 732f6b9f003..a1131424c3d 100644 --- a/lisp/=mh-e.el +++ b/lisp/=mh-e.el @@ -48,7 +48,7 @@ ;;; 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/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.12 1993/06/09 11:54:27 jimb Exp rms $") +(defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.13 1993/06/20 22:45:13 rms Exp rms $") ;;; Code: @@ -99,7 +99,7 @@ It is passed three arguments: TO recipients, SUBJECT, and CC recipients.") (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. @@ -1409,7 +1409,7 @@ Assumes mh-e has already been initialized." (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 () |