Mercurial > emacs

comparison lisp/=mh-e.el @ 3850:1c084fa7c501

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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