Skip to content

Commit

Permalink
fix(mu4e): update obsolete functions
Browse files Browse the repository at this point in the history
  • Loading branch information
abougouffa committed Jun 20, 2023
1 parent 5587715 commit 7041206
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions modules/extras/me-mu4e-extras.el
Original file line number Diff line number Diff line change
Expand Up @@ -27,21 +27,21 @@ Acts like a singular `mu4e-view-save-attachments', without the saving."
(lambda (part)
(when (assoc "attachment" (cdr part))
part))
(mu4e~view-gather-mime-parts))))
(mu4e--view-gather-mime-parts))))
(files (+mu4e-part-selectors parts)))
(cdr (assoc (completing-read "Select attachment: " (mapcar #'car files)) files))
(user-error (mu4e-format "No attached files found"))))

(defun +mu4e-view-open-attachment ()
"Select an attachment, and open it."
(interactive)
(mu4e~view-open-file
(mu4e~view-mime-part-to-temp-file (cdr (+mu4e-view-select-attachment)))))
(mu4e--view-open-file
(mu4e--view-mime-part-to-temp-file (cdr (+mu4e-view-select-attachment)))))

(defun +mu4e-view-select-mime-part-action ()
"Select a MIME part, and perform an action on it."
(interactive)
(let ((labeledparts (+mu4e-part-selectors (mu4e~view-gather-mime-parts))))
(let ((labeledparts (+mu4e-part-selectors (mu4e--view-gather-mime-parts))))
(if labeledparts
(mu4e-view-mime-part-action
(cadr (assoc (completing-read "Select part: " (mapcar #'car labeledparts))
Expand Down Expand Up @@ -94,7 +94,7 @@ Acts like a singular `mu4e-view-save-attachments', without the saving."
(let* ((msg (or msg (mu4e-message-at-point)))
(id (+clean-file-name (mu4e-message-field msg :subject) :downcase))
(attachdir (expand-file-name id mu4e-attachment-dir))
(parts (mu4e~view-gather-mime-parts))
(parts (mu4e--view-gather-mime-parts))
(handles '())
(files '())
dir)
Expand Down

0 comments on commit 7041206

Please sign in to comment.