-(defun notmuch-show-mm-display-part-inline (part content-type)
- "Use the mm-decode/mm-view functions to display a part inline, if possible."
- (let ((handle (mm-make-handle nil (list content-type))))
- (if (and (mm-inlinable-p handle)
- (mm-inlined-p handle))
- (progn
- (insert (with-temp-buffer
- (let ((display-buffer (current-buffer)))
- (with-temp-buffer
- (let ((work-buffer (current-buffer)))
- (insert (plist-get part :content))
- (set-buffer display-buffer)
- (mm-display-part (mm-make-handle work-buffer
- (list content-type)))
- (buffer-string))))))
- t)))
- nil)
-
-(defun notmuch-show-insert-part-text/plain (part content-type nth depth)
+(defun notmuch-show-save-part (message-id nth &optional filename)
+ (with-temp-buffer
+ ;; Always acquires the part via `notmuch part', even if it is
+ ;; available in the JSON output.
+ (insert (notmuch-show-get-bodypart-internal message-id nth))
+ (let ((file (read-file-name
+ "Filename to save as: "
+ (or mailcap-download-directory "~/")
+ nil nil
+ filename))
+ (require-final-newline nil)
+ (coding-system-for-write 'no-conversion))
+ (write-region (point-min) (point-max) file))))
+
+(defun notmuch-show-mm-display-part-inline (msg part content-type content)
+ "Use the mm-decode/mm-view functions to display a part in the
+current buffer, if possible."
+ (let ((display-buffer (current-buffer)))
+ (with-temp-buffer
+ (insert content)
+ (let ((handle (mm-make-handle (current-buffer) (list content-type))))
+ (set-buffer display-buffer)
+ (if (and (mm-inlinable-p handle)
+ (mm-inlined-p handle))
+ (progn
+ (mm-display-part handle)
+ t)
+ nil)))))
+
+(defun notmuch-show-insert-part-text/plain (msg part content-type nth depth declared-type)