3066 |
(mm-handle-id handle))))) |
(mm-handle-id handle))))) |
3067 |
|
|
3068 |
(defun gnus-mime-copy-part (&optional handle) |
(defun gnus-mime-copy-part (&optional handle) |
3069 |
"Put the the MIME part under point into a new buffer." |
"Put the MIME part under point into a new buffer." |
3070 |
(interactive) |
(interactive) |
3071 |
(gnus-article-check-buffer) |
(gnus-article-check-buffer) |
3072 |
(let* ((handle (or handle (get-text-property (point) 'gnus-data))) |
(let* ((handle (or handle (get-text-property (point) 'gnus-data))) |