Mercurial > emacs
comparison lisp/=mh-e.el @ 3850:1c084fa7c501
(mh-yank-cur-msg): Test mark-active.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 20 Jun 1993 22:45:13 +0000 |
parents | 507f64624555 |
children | 93d42767e2ec |
comparison
equal
deleted
inserted
replaced
3849:646af96bba7b | 3850:1c084fa7c501 |
---|---|
46 | 46 |
47 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. | 47 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. |
48 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. | 48 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
49 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu | 49 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu |
50 ;;; Modified by Stephen Gildea 1988. gildea@bbn.com | 50 ;;; Modified by Stephen Gildea 1988. gildea@bbn.com |
51 (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 $") | 51 (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 $") |
52 | 52 |
53 ;;; Code: | 53 ;;; Code: |
54 | 54 |
55 | 55 |
56 | 56 |
2153 (to-buffer (current-buffer))) | 2153 (to-buffer (current-buffer))) |
2154 (set-buffer mh-sent-from-folder) | 2154 (set-buffer mh-sent-from-folder) |
2155 (if mh-delete-yanked-msg-window | 2155 (if mh-delete-yanked-msg-window |
2156 (delete-windows-on mh-show-buffer)) | 2156 (delete-windows-on mh-show-buffer)) |
2157 (set-buffer mh-show-buffer) ; Find displayed message | 2157 (set-buffer mh-show-buffer) ; Find displayed message |
2158 (let ((mh-ins-str (cond ((mark t) | 2158 (let ((mh-ins-str (cond (mark-active |
2159 (buffer-substring (region-beginning) | 2159 (buffer-substring (region-beginning) |
2160 (region-end))) | 2160 (region-end))) |
2161 ((eq 'body mh-yank-from-start-of-msg) | 2161 ((eq 'body mh-yank-from-start-of-msg) |
2162 (buffer-substring | 2162 (buffer-substring |
2163 (save-excursion | 2163 (save-excursion |