mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 00:10:48 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug: Rmail f copied the entire Rmail file into *mail*.

Browse source
This commit is contained in:
Richard M. Stallman 2011-06-22 19:35:21 -04:00
parent 297dde5a97
commit 7a70468fb1
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-06-22 Richard Stallman <rms@gnu.org>
* mail/rmailmm.el (rmail-insert-mime-forwarded-message):
Copy the buffer currently showing just one message.
2011-06-22 Roland Winkler <winkler@gnu.org>
* textmodes/bibtex.el (bibtex-entry-update): Use mapc.

12
lisp/mail/rmailmm.el
View file

@ -1333,12 +1333,16 @@ attachments as specfied by `rmail-mime-attachment-dirs-alist'."
(setq rmail-show-mime-function 'rmail-show-mime)
(defun rmail-insert-mime-forwarded-message (forward-buffer)
"Function to set in `rmail-insert-mime-forwarded-message-function' (which see)."
(let ((rmail-mime-mbox-buffer
(with-current-buffer forward-buffer rmail-view-buffer)))
"Insert the message in FORWARD-BUFFER as a forwarded message.
This is the usual value of `rmail-insert-mime-forwarded-message-function'."
(let ((message-buffer
(with-current-buffer forward-buffer
(if rmail-buffer-swapped
forward-buffer
rmail-view-buffer))))
(save-restriction
(narrow-to-region (point) (point))
(message-forward-make-body-mime rmail-mime-mbox-buffer))))
(message-forward-make-body-mime message-buffer))))
(setq rmail-insert-mime-forwarded-message-function
'rmail-insert-mime-forwarded-message)