mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Fix "C-c C-r" in mail-mode invoked from Rmail.

Browse Source 
lisp/mail/sendmail.el (mail-yank-region): Recognize
 rmail-yank-current-message in addition to insert-buffer.  Fixes
 mail-mode's "C-c C-r" that otherwise does nothing when invoked in
 a *mail* buffer created through rmail-start-mail with sendmail as
 mail-user-agent.
This commit is contained in:
Eli Zaretskii 2012-05-18 12:41:42 +03:00
parent ce12872275
commit b30b64b909
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2012-05-18 Eli Zaretskii <eliz@gnu.org>
* mail/sendmail.el (mail-yank-region): Recognize
rmail-yank-current-message in addition to insert-buffer. Fixes
mail-mode's "C-c C-r" that otherwise does nothing when invoked in
a *mail* buffer created through rmail-start-mail with sendmail as
mail-user-agent.
2012-05-17 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el (cl-transform-lambda): Don't add spurious

3
lisp/mail/sendmail.el
View File

@ -1679,7 +1679,8 @@ Just \\[universal-argument] as argument means don't indent, insert no prefix,
and don't delete any header fields."
(interactive "P")
(and (consp mail-reply-action)
(eq (car mail-reply-action) 'insert-buffer)
(memq (car mail-reply-action)
'(rmail-yank-current-message insert-buffer))
(with-current-buffer (nth 1 mail-reply-action)
(or (mark t)
(error "No mark set: %S" (current-buffer))))