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_build_dir(),
|
||||||
'--directory', meson.current_source_dir(),
|
'--directory', meson.current_source_dir(),
|
||||||
'--eval', '(setq load-prefer-newer t)',
|
'--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,
|
'--eval', target_func,
|
||||||
'--funcall', 'batch-byte-compile', '@INPUT@'])
|
'--funcall', 'batch-byte-compile', '@INPUT@'])
|
||||||
endforeach
|
endforeach
|
||||||
|
|
|
@ -160,7 +160,7 @@ the file."
|
||||||
(file-directory-p f))
|
(file-directory-p f))
|
||||||
nil
|
nil
|
||||||
(expand-file-name f)))
|
(expand-file-name f)))
|
||||||
(mu4e--flatten-list (reverse args))))))
|
(eshell-flatten-list (reverse args))))))
|
||||||
;; warn if user tries to attach without any files marked
|
;; warn if user tries to attach without any files marked
|
||||||
(if (null files-to-attach)
|
(if (null files-to-attach)
|
||||||
(error "No files to attach")
|
(error "No files to attach")
|
||||||
|
@ -189,7 +189,7 @@ the file."
|
||||||
(goto-char (point-max)) ; attach at end of buffer
|
(goto-char (point-max)) ; attach at end of buffer
|
||||||
(while files-to-attach
|
(while files-to-attach
|
||||||
(mml-attach-file (car 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))
|
(car files-to-attach))
|
||||||
"application/octet-stream") nil)
|
"application/octet-stream") nil)
|
||||||
(setq files-to-attach (cdr files-to-attach)))
|
(setq files-to-attach (cdr files-to-attach)))
|
||||||
|
|
Loading…
Reference in New Issue