alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: add mu4e-uniquify-save-file-name-function

Browse Source 
Make the function to create a new file for saving customizable.
This commit is contained in:
Dirk-Jan C. Binnema
2024-12-04 22:29:12 +02:00
parent a34a26a5a8
commit ffb3563f11
1 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
mu4e/mu4e-mime-parts.el
View File

@ -50,6 +50,17 @@ specified a function as viewer."
:type '(choice string function) :type '(choice string function)
:group 'mu4e-view) :group 'mu4e-view)
(defcustom mu4e-uniquify-save-file-name-function 'mu4e--uniquify-file-name
"Function to create a unique, not-yet-existing file name.
Takes one parameter, a file-name path, and returns a file-name
path that does not yet exist. This can be the same, or some
variation.
See `mu4e--uniquify-file-name' for an example."
:type 'function
:group 'mu4e-view)
;; remember the mime-handles, so we can clean them up when ;; remember the mime-handles, so we can clean them up when
;; we quit this buffer. ;; we quit this buffer.
(defvar-local mu4e~gnus-article-mime-handles nil) (defvar-local mu4e~gnus-article-mime-handles nil)
@ -128,8 +139,9 @@ There are some internal fields as well, e.g. ; subject to change:
;; https://emacs.stackexchange.com/questions/74547/completing-read-search-also-in-annotationsxc ;; https://emacs.stackexchange.com/questions/74547/completing-read-search-also-in-annotationsxc
(defun mu4e--uniqify-file-name (fname) (defun mu4e--uniquify-file-name (fname)
"Return a non-yet-existing filename based on FNAME. "Return a not-yet-existing filename based on FNAME.
If FNAME does not yet exist, return it unchanged. If FNAME does not yet exist, return it unchanged.
Otherwise, return a file with a unique number appended to the base-name." Otherwise, return a file with a unique number appended to the base-name."
(let ((num 1) (orig-name fname)) (let ((num 1) (orig-name fname))
@ -313,7 +325,7 @@ files."
;; we have determined what files to save, and where. ;; we have determined what files to save, and where.
(seq-do (lambda (fname) (seq-do (lambda (fname)
(let* ((part (cdr (assoc fname candidates))) (let* ((part (cdr (assoc fname candidates)))
(path (mu4e--uniqify-file-name (path (funcall mu4e-uniquify-save-file-name-function
(mu4e-join-paths (mu4e-join-paths
(or custom-dir (plist-get part :target-dir)) (or custom-dir (plist-get part :target-dir))
(plist-get part :filename)))) (plist-get part :filename))))