mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(mh-yank-cur-msg): Use (mark t).

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-05 02:51:21 +00:00
parent c7c8b31e4f
commit 14869f4621
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mh-e.el
View File

@ -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: mh-e.el,v 3.6.1.1 93/05/30 07:36:57 gildea Exp $")
(defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.10 1993/05/30 22:56:31 rms Exp rms $")
;;; Code:
@ -2155,7 +2155,7 @@ yanked message will be deleted."
(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)
(let ((mh-ins-str (cond ((mark t)
(buffer-substring (region-beginning)
(region-end)))
((eq 'body mh-yank-from-start-of-msg)