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

mu4e: fix some byte-compiler warnings

This commit is contained in:
Dirk-Jan C. Binnema 2024-04-23 21:07:06 +03:00
parent 16c75af1f2
commit 11f55b4ede
4 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mu4e/mu4e-contacts.el
View File

@ -281,7 +281,7 @@ For testing/debugging."
(declare-function mu4e--server-contacts "mu4e-server") (declare-function mu4e--server-contacts "mu4e-server")
(defun mu4e--request-contacts-maybe () (defun mu4e--request-contacts-maybe ()
"Maybe update the set of contacts for autocompletion. "Maybe update the set of contacts for autocompletion.
If `mu4e-compose-complete-addresses' is non-nil, get/update the If `mu4e-compose-complete-addresses' is non-nil, get/update the
list of contacts we use for autocompletion; otherwise, do list of contacts we use for autocompletion; otherwise, do

8
mu4e/mu4e-draft.el
View File

@ -349,9 +349,10 @@ address is set, use that, otherwise use the From address. Note,
whatever was in the To: field before, goes to the Cc:-list (if whatever was in the To: field before, goes to the Cc:-list (if
we're doing a reply-to-all). Special case: if we were the sender we're doing a reply-to-all). Special case: if we were the sender
of the original, we simple copy the list form the original." of the original, we simple copy the list form the original."
(let ((reply-to (let* ((reply-to
(or (plist-get origmsg :reply-to) (plist-get origmsg :from)))) (or (plist-get origmsg :reply-to) (plist-get origmsg :from)))
(cl-delete-duplicates reply-to :test #'mu4e~draft-address-cell-equal) (reply-to
(cl-delete-duplicates reply-to :test #'mu4e~draft-address-cell-equal)))
(if mu4e-compose-dont-reply-to-self (if mu4e-compose-dont-reply-to-self
(cl-delete-if (cl-delete-if
(lambda (to-cell) (lambda (to-cell)
@ -359,7 +360,6 @@ of the original, we simple copy the list form the original."
reply-to) reply-to)
reply-to))) reply-to)))
(defun mu4e~strip-ignored-addresses (addrs) (defun mu4e~strip-ignored-addresses (addrs)
"Return all addresses that are not to be ignored. "Return all addresses that are not to be ignored.
I.e. return all the addresses in ADDRS not matching I.e. return all the addresses in ADDRS not matching

6
mu4e/mu4e-mark.el
View File

@ -45,9 +45,9 @@ Value is one of the following symbols:
- `ask' ask user whether to ignore the marks - `ask' ask user whether to ignore the marks
- `apply' automatically apply the marks before doing anything else - `apply' automatically apply the marks before doing anything else
- `ignore' automatically ignore the marks without asking" - `ignore' automatically ignore the marks without asking"
:type '(choice (const ask :tag "ask user whether to ignore marks") :type '(choice (const :tag "ask user whether to ignore marks" ask)
(const apply :tag "apply marks without asking") (const :tag "apply marks without asking" apply)
(const ignore :tag "ignore marks without asking")) (const :tag "ignore marks without asking" ignore))
:group 'mu4e-headers) :group 'mu4e-headers)
(defcustom mu4e-mark-execute-pre-hook nil (defcustom mu4e-mark-execute-pre-hook nil

4
mu4e/mu4e-server.el
View File

@ -207,8 +207,8 @@ Checks whether the server process is live."
'(run open listen connect stop)) t)) '(run open listen connect stop)) t))
(defsubst mu4e--server-eat-sexp-from-buf () (defsubst mu4e--server-eat-sexp-from-buf ()
"'Eat' the next s-expression from `mu4e--server-buf'. "Eat the next s-expression from `mu4e--server-buf'.
Note: this is a string, not an emacs-buffer. `mu4e--server-buf gets Note: this is a string, not an emacs-buffer. `mu4e--server-buf' gets
its contents from the mu-servers in the following form: its contents from the mu-servers in the following form:
<`mu4e--server-cookie-pre'><length-in-hex><`mu4e--server-cookie-post'> <`mu4e--server-cookie-pre'><length-in-hex><`mu4e--server-cookie-post'>
Function returns this sexp, or nil if there was none. Function returns this sexp, or nil if there was none.