mirror of https://github.com/djcb/mu.git
mu4e: avoid byte-compiler warnings
This commit is contained in:
parent
10041eb2e1
commit
a629caef1a
|
@ -92,6 +92,9 @@ foreach src : mu4e_srcs
|
|||
'--directory', meson.current_build_dir(),
|
||||
'--directory', meson.current_source_dir(),
|
||||
'--eval', '(setq load-prefer-newer t)',
|
||||
# we don't need warnings for items that have become
|
||||
# obsolete _after_ our last supported emacs release.
|
||||
'--eval', '(setq byte-compile-warnings \'(not obsolete))',
|
||||
'--eval', target_func,
|
||||
'--funcall', 'batch-byte-compile', '@INPUT@'])
|
||||
endforeach
|
||||
|
|
|
@ -160,7 +160,7 @@ the file."
|
|||
(file-directory-p f))
|
||||
nil
|
||||
(expand-file-name f)))
|
||||
(mu4e--flatten-list (reverse args))))))
|
||||
(eshell-flatten-list (reverse args))))))
|
||||
;; warn if user tries to attach without any files marked
|
||||
(if (null files-to-attach)
|
||||
(error "No files to attach")
|
||||
|
@ -189,7 +189,7 @@ the file."
|
|||
(goto-char (point-max)) ; attach at end of buffer
|
||||
(while files-to-attach
|
||||
(mml-attach-file (car files-to-attach)
|
||||
(or (mu4e--mm-default-file-type
|
||||
(or (mm-default-file-encoding
|
||||
(car files-to-attach))
|
||||
"application/octet-stream") nil)
|
||||
(setq files-to-attach (cdr files-to-attach)))
|
||||
|
|
Loading…
Reference in New Issue