Changeset 4079 for trunk/lisp/gnus/mm-decode.el

Timestamp:

2006年05月13日 11時31分18秒 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/gnus/mm-decode.el (modified) (6 diffs)

trunk/lisp/gnus/mm-decode.el

@@ -563 +563 @@
-        (setq type (split-string (car ctl) "/"))
-        (setq subtype (cadr type)
-pop
+car
-        (setq
-         result
@@ -642 +642 @@
-(defun mm-copy-to-buffer ()
-  "Copy the contents of the current buffer to a fresh buffer."
-  (save-excursion
-    (let ((obuf (current-buffer))
-          beg)
@@ -648 +647 @@
-      (search-forward-regexp "^\n" nil t)
-      (setq beg (point))
-  (se
+(with-curren
-       ;; Preserve the data's unibyteness (for url-insert-file-contents).
-       (let ((default-enable-multibyte-characters (mm-multibyte-p)))
-        (generate-new-buffer " *mm*")
+          (generate-new-buffer " *mm*"
-      (insert-buffer-substring obuf beg)
-      (current-buffer))))
@@ -702 +701 @@
-                  (mm-insert-inline handle (mm-get-part handle))
-                  'inline)
-
+
+
-                       (stringp method) ;; 'mailcap-save-binary-file
-                       (or (eq mm-enable-external t)
@@ -715 +715 @@
-                                       " \"" (format method filename) "\"")
-                                    "")
-
-
-
+
-              (if external
-                  (mm-display-external
@@ -1020 +1018 @@
-    result))
-
-
-
+
+
+
+
+
-  (let ((alist mm-inline-media-tests)
-        (type (mm-handle-media-type handle))
-        test)
-    (while alist