diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-20 22:45:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-20 22:45:13 +0000 |
| commit | 3a6127402ca4be658e4332d7802599e605bd9a84 (patch) | |
| tree | 9741d1e1c660035d2718c8575c44f9aacbd40e6d /lisp/=mh-e.el | |
| parent | 241e97b44c67045bfbac0f0f3544f5312a2760d0 (diff) | |
| download | emacs-3a6127402ca4be658e4332d7802599e605bd9a84.tar.gz | |
(mh-yank-cur-msg): Test mark-active.
Diffstat (limited to 'lisp/=mh-e.el')
| -rw-r--r-- | lisp/=mh-e.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/=mh-e.el b/lisp/=mh-e.el index d52fbcb31bf..732f6b9f003 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/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.12 1993/06/09 11:54:27 jimb 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 t) + (let ((mh-ins-str (cond (mark-active (buffer-substring (region-beginning) (region-end))) ((eq 'body mh-yank-from-start-of-msg) |