1058 |
(defun mm-insert-part (handle) |
(defun mm-insert-part (handle) |
1059 |
"Insert the contents of HANDLE in the current buffer." |
"Insert the contents of HANDLE in the current buffer." |
1060 |
(save-excursion |
(save-excursion |
1061 |
(insert (if (mm-multibyte-p) |
(insert |
1062 |
(mm-string-as-multibyte (mm-get-part handle)) |
(cond ((eq (mail-content-type-get (mm-handle-type handle) 'charset) |
1063 |
(mm-get-part handle))))) |
'gnus-decoded) |
1064 |
|
(with-current-buffer (mm-handle-buffer handle) |
1065 |
|
(buffer-string))) |
1066 |
|
((mm-multibyte-p) |
1067 |
|
(mm-string-as-multibyte (mm-get-part handle))) |
1068 |
|
(t |
1069 |
|
(mm-get-part handle)))))) |
1070 |
|
|
1071 |
(defun mm-file-name-delete-whitespace (file-name) |
(defun mm-file-name-delete-whitespace (file-name) |
1072 |
"Remove all whitespace characters from FILE-NAME." |
"Remove all whitespace characters from FILE-NAME." |