* mu4e: fix byte-compilation warnings

emacs/mu4e-actions.el

@@ -26,7 +26,9 @@
 ;; manual)
 
 ;;; Code:
+(eval-when-compile (byte-compile-disable-warning 'cl-functions))
 (require 'cl)
+
 (require 'mu4e-utils)
 (require 'mu4e-meta)
 

emacs/mu4e-compose.el

@@ -27,7 +27,10 @@
 
 ;;; Code:
 ;; we use some stuff from gnus..
+
+(eval-when-compile (byte-compile-disable-warning 'cl-functions))
 (require 'cl)
+
 (require 'message)
 (require 'mail-parse)
 (require 'smtpmail)
@@ -100,12 +103,13 @@ of mu4e and emacs."
 plist). This function use gnus' `message-cite-function', and as
 such all its settings apply."
   (with-temp-buffer
-    (insert (mu4e-view-message-text msg))
-    (goto-char (point-min))
-    (push-mark (point-max))
-    (funcall message-cite-function)
-    (pop-mark)
-    (buffer-string)))
+    (when (fboundp 'mu4e-view-message-text) ;; keep bytecompiler happy
+      (insert (mu4e-view-message-text msg))
+      (goto-char (point-min))
+      (push-mark (point-max))
+      (funcall message-cite-function)
+      (pop-mark)
+      (buffer-string))))
 
 
 (defun mu4e~compose-header (hdr val)

emacs/mu4e-headers.el

@@ -27,11 +27,12 @@
 ;; headers like 'To:' or 'Subject:')
 
 ;; Code:
+(eval-when-compile (byte-compile-disable-warning 'cl-functions))
 (require 'cl)
 
 (require 'hl-line)
-(require 'mu4e-proc)
 (require 'mu4e-utils)    ;; utility functions
+(require 'mu4e-proc)
 (require 'mu4e-vars)
 (require 'mu4e-mark)
 (require 'mu4e-compose)

emacs/mu4e-utils.el

@@ -25,7 +25,9 @@
 ;; Utility functions used in the mu4e
 
 ;;; Code:
+(eval-when-compile (byte-compile-disable-warning 'cl-functions))
 (require 'cl)
+
 (require 'html2text)
 (require 'mu4e-vars)
 (require 'doc-view)

emacs/mu4e-view.el

@@ -36,8 +36,10 @@
 ;; we prefer the improved fill-region
 (require 'filladapt nil 'noerror)
 (require 'comint)
-(require 'cl)
 
+(eval-when-compile (byte-compile-disable-warning 'cl-functions))
+(require 'cl)
+ 
 ;; the message view
 (defgroup mu4e-view nil
   "Settings for the message view."