623 |
"Copy the contents of the current buffer to a fresh buffer." |
"Copy the contents of the current buffer to a fresh buffer." |
624 |
(save-excursion |
(save-excursion |
625 |
(let ((obuf (current-buffer)) |
(let ((obuf (current-buffer)) |
626 |
|
(multibyte enable-multibyte-characters) |
627 |
beg) |
beg) |
628 |
(goto-char (point-min)) |
(goto-char (point-min)) |
629 |
(search-forward-regexp "^\n" nil t) |
(search-forward-regexp "^\n" nil t) |
630 |
(setq beg (point)) |
(setq beg (point)) |
631 |
(set-buffer (generate-new-buffer " *mm*")) |
(set-buffer (generate-new-buffer " *mm*")) |
632 |
|
;; Preserve the data's unibyteness (for url-insert-file-contents). |
633 |
|
(set-buffer-multibyte multibyte) |
634 |
(insert-buffer-substring obuf beg) |
(insert-buffer-substring obuf beg) |
635 |
(current-buffer)))) |
(current-buffer)))) |
636 |
|
|
1489 |
|
|
1490 |
(provide 'mm-decode) |
(provide 'mm-decode) |
1491 |
|
|
1492 |
;;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b |
;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b |
1493 |
;;; mm-decode.el ends here |
;;; mm-decode.el ends here |