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

mu4e: fix some compiler warnings

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2020-01-28 01:03:40 +02:00
parent e968f46963
commit dd98203d42
2 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mu4e/mu4e-main.el
View File

@ -166,7 +166,7 @@ clicked."
"\n" "\n"
(propertize " Bookmarks\n\n" 'face 'mu4e-title-face) (propertize " Bookmarks\n\n" 'face 'mu4e-title-face)
(mu4e~main-bookmarks) (mu4e~main-bookmarks)
"\n\n" "\n"
(propertize " Misc\n\n" 'face 'mu4e-title-face) (propertize " Misc\n\n" 'face 'mu4e-title-face)
(mu4e~main-action-str "\t* [;]Switch context\n" 'mu4e-context-switch) (mu4e~main-action-str "\t* [;]Switch context\n" 'mu4e-context-switch)

19
mu4e/mu4e-utils.el
View File

@ -28,6 +28,7 @@
(eval-when-compile (eval-when-compile
(require 'org nil 'noerror)) (require 'org nil 'noerror))
(require 'cl-lib) (require 'cl-lib)
(require 'cl-seq nil 'noerror)
(require 'mu4e-vars) (require 'mu4e-vars)
(require 'mu4e-meta) (require 'mu4e-meta)
(require 'mu4e-lists) (require 'mu4e-lists)
@ -282,7 +283,6 @@ User now will be presented with a list: \"Choose an animal:
Function will return the cdr of the list element." Function will return the cdr of the list element."
(let* ((prompt (mu4e-format "%s" prompt)) (let* ((prompt (mu4e-format "%s" prompt))
(chosen)
(optionsstr (optionsstr
(mapconcat (mapconcat
(lambda (option) (lambda (option)
@ -291,8 +291,7 @@ Function will return the cdr of the list element."
(mu4e-error (mu4e-error
(concat "Please use the new format for options/actions; " (concat "Please use the new format for options/actions; "
"see the manual"))) "see the manual")))
(let* ((kar (substring (car option) 0 1)) (let ((kar (substring (car option) 0 1)))
(val (cdr option)))
(concat (concat
"[" (propertize kar 'face 'mu4e-highlight-face) "]" "[" (propertize kar 'face 'mu4e-highlight-face) "]"
(substring (car option) 1)))) (substring (car option) 1))))
@ -409,7 +408,7 @@ old format if needed."
item)) item))
mu4e-bookmarks)) mu4e-bookmarks))
(defun mu4e-ask-bookmark (prompt &optional kar) (defun mu4e-ask-bookmark (prompt)
"Ask the user for a bookmark (using PROMPT) as defined in "Ask the user for a bookmark (using PROMPT) as defined in
`mu4e-bookmarks', then return the corresponding query." `mu4e-bookmarks', then return the corresponding query."
(unless (mu4e-bookmarks) (mu4e-error "No bookmarks defined")) (unless (mu4e-bookmarks) (mu4e-error "No bookmarks defined"))
@ -630,6 +629,9 @@ changed.")
(make-obsolete-variable 'mu4e-msg-changed-hook (make-obsolete-variable 'mu4e-msg-changed-hook
'mu4e-message-changed-hook "0.9.19") 'mu4e-message-changed-hook "0.9.19")
(defvar mu4e~contacts-tstamp "0"
"Timestamp for the most recent contacts update." )
;; some handler functions for server messages ;; some handler functions for server messages
;; ;;
(defun mu4e-info-handler (info) (defun mu4e-info-handler (info)
@ -664,8 +666,6 @@ process."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar mu4e~contacts-tstamp "0"
"Timestamp for the most recent contacts update." )
(defun mu4e~update-contacts (contacts &optional tstamp) (defun mu4e~update-contacts (contacts &optional tstamp)
"Receive a sorted list of CONTACTS. "Receive a sorted list of CONTACTS.
@ -714,7 +714,7 @@ completion; for testing/debugging."
(when mu4e~contacts (when mu4e~contacts
(insert (format "number of contacts cached: %d\n\n" (insert (format "number of contacts cached: %d\n\n"
(hash-table-count mu4e~contacts))) (hash-table-count mu4e~contacts)))
(maphash (lambda(key val) (maphash (lambda(key _val)
(insert (format "%S\n" key))) mu4e~contacts))) (insert (format "%S\n" key))) mu4e~contacts)))
(pop-to-buffer "*mu4e-contacts-info*")) (pop-to-buffer "*mu4e-contacts-info*"))
@ -786,8 +786,7 @@ nothing."
(defun mu4e~pong-handler (props func) (defun mu4e~pong-handler (props func)
"Handle 'pong' responses from the mu server." "Handle 'pong' responses from the mu server."
(setq mu4e~server-props props) ;; save props from the server (setq mu4e~server-props props) ;; save props from the server
(let ((version (plist-get props :version)) (let ((doccount (plist-get props :doccount)))
(doccount (plist-get props :doccount)))
(mu4e~check-requirements) (mu4e~check-requirements)
(when func (funcall func)) (when func (funcall func))
(when (zerop doccount) (when (zerop doccount)
@ -926,7 +925,7 @@ frame to display buffer BUF."
(set-window-dedicated-p win t) (set-window-dedicated-p win t)
win)) win))
(defun mu4e~update-sentinel-func (proc msg) (defun mu4e~update-sentinel-func (proc _msg)
"Sentinel function for the update process." "Sentinel function for the update process."
(when mu4e~progress-reporter (when mu4e~progress-reporter
(progress-reporter-done mu4e~progress-reporter) (progress-reporter-done mu4e~progress-reporter)