emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge pull request #2028 from andersjohansson/fix-bug-helm 

Fix bug with helm completing-read when saving attachments
This commit is contained in:
Dirk-Jan C. Binnema 2021-06-02 22:04:58 +03:00 committed by GitHub
parent 672d57fe5d c090e36485
commit dd542f3718
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mu4e/mu4e-view-gnus.el
View File

@ -476,7 +476,6 @@ containing commas."
(let* ((parts (mu4e~view-gather-mime-parts))
(handles '())
(files '())
(helm-comp-read-use-marked t)
(compfn (if (and (boundp 'helm-mode) helm-mode)
#'completing-read
;; Fallback to `completing-read-multiple' with poor
@ -490,7 +489,8 @@ containing commas."
(push fname files))))
(if files
(progn
(setq files (funcall compfn "Save part(s): " files)
(setq files (let ((helm-comp-read-use-marked t))
(funcall compfn "Save part(s): " files))
dir (if arg (read-directory-name "Save to directory: ") mu4e-attachment-dir))
(cl-loop for (f . h) in handles
when (member f files)