comparison lisp/gnus/mm-decode.el @ 92769:734bb318f69e

(mm-with-part): Set the buffer to unibyte before inserting the handle-buffer's text, so the implicit multibyte->unibyte conversion uses string-make-unibyte rather than string-as-unibyte.

92768:f2df8a37cf42

	  (setq parts (nconc (list (mm-dissect-buffer t nil from)) parts)))))
    (mm-possibly-verify-or-decrypt (nreverse parts) ctl)))

(defun mm-copy-to-buffer ()
  "Copy the contents of the current buffer to a fresh buffer."
    (let ((obuf (current-buffer))
	  beg)
      (goto-char (point-min))
      (search-forward-regexp "^\n" nil t)
      (setq beg (point))
    (with-current-buffer
       ;; Preserve the data's unibyteness (for url-insert-file-contents).
       (let ((default-enable-multibyte-characters (mm-multibyte-p)))
          (generate-new-buffer " *mm*"))
      (insert-buffer-substring obuf beg)

;;; Functions for outputting parts
;;;

(defmacro mm-with-part (handle &rest forms)
  "Run FORMS in the temp buffer containing the contents of HANDLE."
  `(let* ((handle ,handle)
	  ;; The multibyteness of the temp buffer should be turned on
	  ;; if inserting a multibyte string.  Contrarily, the buffer's
	  ;; multibyteness should be off if inserting a unibyte string,
	  ;; especially if a string contains 8bit data.
	  (default-enable-multibyte-characters
	    (with-current-buffer (mm-handle-buffer handle)
	      (mm-multibyte-p))))
     (with-temp-buffer
       (insert-buffer-substring (mm-handle-buffer handle))
       (mm-disable-multibyte)
       (mm-decode-content-transfer-encoding
	(mm-handle-encoding handle)
	(mm-handle-media-type handle))
       ,@forms)))
(put 'mm-with-part 'lisp-indent-function 1)

92769:734bb318f69e

	  (setq parts (nconc (list (mm-dissect-buffer t nil from)) parts)))))
    (mm-possibly-verify-or-decrypt (nreverse parts) ctl)))

(defun mm-copy-to-buffer ()
  "Copy the contents of the current buffer to a fresh buffer."
  (let ((obuf (current-buffer))
        beg)
    (goto-char (point-min))
    (search-forward-regexp "^\n" nil t)
    (setq beg (point))
    (with-current-buffer
       ;; Preserve the data's unibyteness (for url-insert-file-contents).
       (let ((default-enable-multibyte-characters (mm-multibyte-p)))
          (generate-new-buffer " *mm*"))
      (insert-buffer-substring obuf beg)

;;; Functions for outputting parts
;;;

(defmacro mm-with-part (handle &rest forms)
  "Run FORMS in the temp buffer containing the contents of HANDLE."
  ;; The handle-buffer's content is a sequence of bytes, not a sequence of
  ;; chars, so the buffer should be unibyte.  It may happen that the
  ;; handle-buffer is multibyte for some reason, in which case now is a good
  ;; time to adjust it, since we know at this point that it should
  ;; be unibyte.
  `(let* ((handle ,handle))
     (with-temp-buffer
       (mm-disable-multibyte)
       (insert-buffer-substring (mm-handle-buffer handle))
       (mm-decode-content-transfer-encoding
	(mm-handle-encoding handle)
	(mm-handle-media-type handle))
       ,@forms)))
(put 'mm-with-part 'lisp-indent-function 1)