mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(mm-uu-copy-to-buffer): Use with-current-buffer.

Browse Source
This commit is contained in:
Stefan Monnier 2005-07-21 19:08:48 +00:00
parent af5e96cdb4
commit 7573397b97
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View File

@ -1,3 +1,10 @@
2005-07-21 Stefan Monnier <monnier@iro.umontreal.ca>
* mml.el (mml-minibuffer-read-disposition): Don't use inline by default
for text/rtf. Display default in prompt. Pass default for M-n.
* mm-uu.el (mm-uu-copy-to-buffer): Use with-current-buffer.
2005-07-16 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-msg.el (gnus-button-mailto): Remove

19
lisp/gnus/mm-uu.el
View File

@ -111,8 +111,8 @@ This can be either \"inline\" or \"attachment\".")
"^exit 0$"
mm-uu-shar-extract)
(forward
;;; Thanks to Edward J. Sabol <sabol@alderaan.gsfc.nasa.gov> and
;;; Peter von der Ah\'e <pahe@daimi.au.dk>
;; Thanks to Edward J. Sabol <sabol@alderaan.gsfc.nasa.gov> and
;; Peter von der Ah\'e <pahe@daimi.au.dk>
"^-+ \\(Start of \\)?Forwarded message"
"^-+ End \\(of \\)?forwarded message"
mm-uu-forward-extract
@ -186,13 +186,12 @@ To disable dissecting shar codes, for instance, add
(defun mm-uu-copy-to-buffer (&optional from to)
"Copy the contents of the current buffer to a fresh buffer.
Return that buffer."
(save-excursion
(let ((obuf (current-buffer))
(coding-system
;; Might not exist in non-MULE XEmacs
(when (boundp 'buffer-file-coding-system)
buffer-file-coding-system)))
(set-buffer (generate-new-buffer " *mm-uu*"))
(let ((obuf (current-buffer))
(coding-system
;; Might not exist in non-MULE XEmacs
(when (boundp 'buffer-file-coding-system)
buffer-file-coding-system)))
(with-current-buffer (generate-new-buffer " *mm-uu*")
(setq buffer-file-coding-system coding-system)
(insert-buffer-substring obuf from to)
(current-buffer))))
@ -496,5 +495,5 @@ Return that buffer."
(provide 'mm-uu)
;;; arch-tag: 7db076bf-53db-4320-aa19-ca76a1d2ab2c
;; arch-tag: 7db076bf-53db-4320-aa19-ca76a1d2ab2c
;;; mm-uu.el ends here