-(defun ff/vm-mime-save-all-files (&optional delete)
- "Save all the mail attachments. With delete argument, remove
-the attachement from mail."
- (interactive "P")
- (let ((vm-mime-delete-after-saving delete))
- (while (and (vm-mime-reader-map-save-file)
- (condition-case nil (vm-move-to-next-button 1)
- (error nil)))))
- )
+;; (defun ff/vm-mime-save-all-files (&optional delete)
+ ;; "Save all the mail attachments. With delete argument, remove
+;; the attachement from mail."
+ ;; (interactive "P")
+ ;; (let ((vm-mime-delete-after-saving delete))
+ ;; (while (and (vm-mime-reader-map-save-file)
+ ;; (condition-case nil (vm-move-to-next-button 1)
+ ;; (error nil)))))
+ ;; )