Mercurial > emacs
changeset 3488:85d2e4130a4c
(mh-yank-cur-msg): Use (mark t).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jun 1993 02:51:21 +0000 |
| parents | 8c151ebeff9c |
| children | 5c2b4797aab2 |
| files | lisp/=mh-e.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=mh-e.el Sat Jun 05 02:48:22 1993 +0000 +++ b/lisp/=mh-e.el Sat Jun 05 02:51:21 1993 +0000 @@ -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 @@ (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)