mirror of https://github.com/djcb/mu.git
mu4e: fix emacs-29 bytecompiler warnings
Wrong single quotes.
This commit is contained in:
parent
a1461a47f3
commit
a1f0c5e9eb
|
@ -184,7 +184,7 @@ receive (:info add :path <path> :docid <docid>) as well as (:update
|
||||||
RETAG-ARG is a comma-separated list of additions and removals.
|
RETAG-ARG is a comma-separated list of additions and removals.
|
||||||
|
|
||||||
Example: +tag,+long tag,-oldtag
|
Example: +tag,+long tag,-oldtag
|
||||||
would add 'tag' and 'long tag', and remove 'oldtag'."
|
would add \"tag\" and \"long tag\", and remove \"oldtag\"."
|
||||||
(let* (
|
(let* (
|
||||||
(path (mu4e-message-field msg :path))
|
(path (mu4e-message-field msg :path))
|
||||||
(oldtags (mu4e-message-field msg :tags))
|
(oldtags (mu4e-message-field msg :tags))
|
||||||
|
|
|
@ -236,7 +236,7 @@ Message-ID."
|
||||||
|
|
||||||
(defun mu4e~compose-complete-contact (&optional start)
|
(defun mu4e~compose-complete-contact (&optional start)
|
||||||
"Complete the text at START with a contact.
|
"Complete the text at START with a contact.
|
||||||
Ie. either 'name <email>' or 'email')."
|
Ie. either \"name <email>\" or \"email\")."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((mail-abbrev-mode-regexp mu4e~compose-address-fields-regexp)
|
(let ((mail-abbrev-mode-regexp mu4e~compose-address-fields-regexp)
|
||||||
(eoh ;; end-of-headers
|
(eoh ;; end-of-headers
|
||||||
|
@ -691,24 +691,25 @@ It restores mu4e window layout after killing the compose-buffer."
|
||||||
(mu4e~switch-back-to-mu4e-buffer)))))
|
(mu4e~switch-back-to-mu4e-buffer)))))
|
||||||
|
|
||||||
(defun mu4e~compose-set-parent-flag (path)
|
(defun mu4e~compose-set-parent-flag (path)
|
||||||
"Set flags for replied-t and forwarded for the message at PATH.
|
"Set flags for replied-to and forwarded for the message at PATH.
|
||||||
That is, set the 'replied' \"R\" flag on messages we replied to,
|
That is, set the `replied' \"R\" flag on messages we replied to,
|
||||||
and the 'passed' \"F\" flag on message we have forwarded.
|
and the `passed' \"F\" flag on message we have forwarded.
|
||||||
|
|
||||||
If a message has an 'in-reply-to' header, it is considered a reply
|
If a message has an \"In-Reply-To\" header, it is considered a
|
||||||
to the message with the corresponding message id. If it does not
|
reply to the message with the corresponding message id.
|
||||||
have an 'in-reply-to' header, but does have a 'references' header,
|
Otherwise, if it does not have an \"In-Reply-To\" header, but
|
||||||
it is considered to be a forward message for the message
|
does have a \"References:\" header, it is considered to be a
|
||||||
corresponding with the /last/ message-id in the references header.
|
forward message for the message corresponding with the /last/
|
||||||
|
message-id in the references header.
|
||||||
|
|
||||||
Now, if the message has been determined to be either a forwarded
|
If the message has been determined to be either a forwarded
|
||||||
message or a reply, we instruct the server to update that message
|
message or a reply, we instruct the server to update that message
|
||||||
with resp. the 'P' (passed) flag for a forwarded message, or the
|
with resp. the \"P\" (passed) flag for a forwarded message, or
|
||||||
'R' flag for a replied message. The original messages are also
|
the \"R\" flag for a replied message. The original messages are
|
||||||
marked as Seen.
|
also marked as Seen.
|
||||||
|
|
||||||
Function assumes that it's executed in the context of the message
|
Function assumes that it is executed in the context of the
|
||||||
buffer."
|
message buffer."
|
||||||
(let ((buf (find-file-noselect path)))
|
(let ((buf (find-file-noselect path)))
|
||||||
(when buf
|
(when buf
|
||||||
(with-current-buffer buf
|
(with-current-buffer buf
|
||||||
|
@ -810,11 +811,11 @@ draft message."
|
||||||
_send-actions _return-action)
|
_send-actions _return-action)
|
||||||
"This is mu4e's implementation of `compose-mail'.
|
"This is mu4e's implementation of `compose-mail'.
|
||||||
Quoting its docstring:
|
Quoting its docstring:
|
||||||
Start composing a mail message to send.
|
|
||||||
This uses the user’s chosen mail composition package
|
Start composing a mail message to send. This uses the user's
|
||||||
as selected with the variable ‘mail-user-agent’.
|
chosen mail composition package as selected with the variable
|
||||||
The optional arguments TO and SUBJECT specify recipients
|
`mail-user-agent'. The optional arguments TO and SUBJECT specify
|
||||||
and the initial Subject field, respectively.
|
recipients and the initial Subject field, respectively.
|
||||||
|
|
||||||
OTHER-HEADERS is an alist specifying additional
|
OTHER-HEADERS is an alist specifying additional
|
||||||
header fields. Elements look like (HEADER . VALUE) where both
|
header fields. Elements look like (HEADER . VALUE) where both
|
||||||
|
@ -826,11 +827,11 @@ being composed. Interactively, CONTINUE is the prefix argument.
|
||||||
SWITCH-FUNCTION, if non-nil, is a function to use to
|
SWITCH-FUNCTION, if non-nil, is a function to use to
|
||||||
switch to and display the buffer used for mail composition.
|
switch to and display the buffer used for mail composition.
|
||||||
|
|
||||||
YANK-ACTION, if non-nil, is an action to perform, if and when necessary,
|
YANK-ACTION, if non-nil, is an action to perform, if and when
|
||||||
to insert the raw text of the message being replied to.
|
necessary, to insert the raw text of the message being replied
|
||||||
It has the form (FUNCTION . ARGS). The user agent will apply
|
to. It has the form (FUNCTION . ARGS). The user agent will apply
|
||||||
FUNCTION to ARGS, to insert the raw text of the original message.
|
FUNCTION to ARGS, to insert the raw text of the original message.
|
||||||
\(The user agent will also run ‘mail-citation-hook’, *after* the
|
\(The user agent will also run `mail-citation-hook', *after* the
|
||||||
original text has been inserted in this way.)
|
original text has been inserted in this way.)
|
||||||
|
|
||||||
SEND-ACTIONS is a list of actions to call when the message is sent.
|
SEND-ACTIONS is a list of actions to call when the message is sent.
|
||||||
|
@ -840,7 +841,8 @@ RETURN-ACTION, if non-nil, is an action for returning to the
|
||||||
caller. It has the form (FUNCTION . ARGS). The function is
|
caller. It has the form (FUNCTION . ARGS). The function is
|
||||||
called after the mail has been sent or put aside, and the mail
|
called after the mail has been sent or put aside, and the mail
|
||||||
buffer buried."
|
buffer buried."
|
||||||
(unless (mu4e-running-p)
|
|
||||||
|
(unless (mu4e-running-p)
|
||||||
(mu4e))
|
(mu4e))
|
||||||
|
|
||||||
;; create a new draft message 'resetting' (as below) is not actually needed in
|
;; create a new draft message 'resetting' (as below) is not actually needed in
|
||||||
|
|
|
@ -37,10 +37,10 @@
|
||||||
:group 'mu4e-compose)
|
:group 'mu4e-compose)
|
||||||
|
|
||||||
(defcustom mu4e-compose-complete-only-personal nil
|
(defcustom mu4e-compose-complete-only-personal nil
|
||||||
"Whether to consider only 'personal' e-mail addresses for completion.
|
"Whether to consider only \"personal\" e-mail addresses for completion.
|
||||||
That is, addresses from messages where user was explicitly in one
|
That is, addresses from messages where user was explicitly in one
|
||||||
of the address fields (this excludes mailing list messages).
|
of the address fields (this excludes mailing list messages).
|
||||||
These addresses are the ones specified with `mu init'."
|
These addresses are the ones specified with \"mu init\"."
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:group 'mu4e-compose)
|
:group 'mu4e-compose)
|
||||||
|
|
||||||
|
@ -181,11 +181,13 @@ addresses and /regular expressions/."
|
||||||
(defun mu4e--rfc822-phrase-type (ph)
|
(defun mu4e--rfc822-phrase-type (ph)
|
||||||
"Return an atom or quoted-string for the phrase PH.
|
"Return an atom or quoted-string for the phrase PH.
|
||||||
This checks for empty string first. Then quotes around the phrase
|
This checks for empty string first. Then quotes around the phrase
|
||||||
\(returning 'rfc822-quoted-string). Then whether there is a quote
|
\(returning symbol `rfc822-quoted-string'). Then whether there is
|
||||||
inside the phrase (returning 'rfc822-containing-quote). The
|
a quote inside the phrase (returning symbol
|
||||||
reverse of the RFC atext definition is then tested. If it
|
`rfc822-containing-quote').
|
||||||
matches, nil is returned, if not, it is an 'rfc822-atom, which is
|
|
||||||
returned."
|
The reverse of the RFC atext definition is then tested. If it
|
||||||
|
matches, nil is returned, if not, it returns a symbol
|
||||||
|
`rfc822-atom'."
|
||||||
(cond
|
(cond
|
||||||
((= (length ph) 0) 'rfc822-empty)
|
((= (length ph) 0) 'rfc822-empty)
|
||||||
((= (aref ph 0) ?\")
|
((= (aref ph 0) ?\")
|
||||||
|
|
|
@ -177,16 +177,17 @@ or nil if there is no such MSG; similar to what
|
||||||
`mu4e-compose-pre-hook' does.
|
`mu4e-compose-pre-hook' does.
|
||||||
|
|
||||||
POLICY specifies how to do the determination. If POLICY is
|
POLICY specifies how to do the determination. If POLICY is
|
||||||
'always-ask, we ask the user unconditionally.
|
`always-ask', we ask the user unconditionally.
|
||||||
|
|
||||||
In all other cases, if any context matches (using its match
|
In all other cases, if any context matches (using its match
|
||||||
function), this context is returned. If none of the contexts
|
function), this context is returned. If none of the contexts
|
||||||
match, POLICY determines what to do:
|
match, POLICY determines what to do:
|
||||||
|
|
||||||
- pick-first: pick the first of the contexts available
|
- `pick-first': pick the first of the contexts available
|
||||||
- ask: ask the user
|
- `ask': ask the user
|
||||||
- ask-if-none: ask if there is no context yet
|
- `ask-if-none': ask if there is no context yet
|
||||||
- otherwise, return nil. Effectively, this leaves the current context as it is."
|
- otherwise, return nil. Effectively, this leaves the current context
|
||||||
|
as it is."
|
||||||
(when mu4e-contexts
|
(when mu4e-contexts
|
||||||
(if (eq policy 'always-ask)
|
(if (eq policy 'always-ask)
|
||||||
(mu4e--context-ask-user "Select context: ")
|
(mu4e--context-ask-user "Select context: ")
|
||||||
|
@ -232,6 +233,6 @@ global-mode-line."
|
||||||
map)
|
map)
|
||||||
(mu4e-context-in-modeline))
|
(mu4e-context-in-modeline))
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
(provide 'mu4e-context)
|
(provide 'mu4e-context)
|
||||||
;;; mu4e-context.el ends here
|
;;; mu4e-context.el ends here
|
||||||
|
|
|
@ -40,8 +40,9 @@
|
||||||
|
|
||||||
(defcustom mu4e-compose-reply-recipients 'ask
|
(defcustom mu4e-compose-reply-recipients 'ask
|
||||||
"Which recipients to use when replying to a message.
|
"Which recipients to use when replying to a message.
|
||||||
May be 'ask, 'all, 'sender. Note that that only applies to
|
May be a symbol `ask', `all', `sender'. Note that that only
|
||||||
non-mailing-list message; for those, mu4e always asks."
|
applies to non-mailing-list message; for those, mu4e always
|
||||||
|
asks."
|
||||||
:type '(choice ask
|
:type '(choice ask
|
||||||
all
|
all
|
||||||
sender)
|
sender)
|
||||||
|
@ -106,7 +107,7 @@ symbols, for example:
|
||||||
|
|
||||||
(setq mu4e-sent-messages-behavior (lambda ()
|
(setq mu4e-sent-messages-behavior (lambda ()
|
||||||
(if (string= (message-sendmail-envelope-from) \"foo@example.com\")
|
(if (string= (message-sendmail-envelope-from) \"foo@example.com\")
|
||||||
'delete 'sent)))
|
\='delete \='sent)))
|
||||||
|
|
||||||
The various `message-' functions from `message-mode' are available
|
The various `message-' functions from `message-mode' are available
|
||||||
for querying the message information."
|
for querying the message information."
|
||||||
|
@ -208,10 +209,10 @@ the width beyond which format=flowed lines are wrapped."
|
||||||
|
|
||||||
(defcustom mu4e-compose-pre-hook nil
|
(defcustom mu4e-compose-pre-hook nil
|
||||||
"Hook run just *before* message composition starts.
|
"Hook run just *before* message composition starts.
|
||||||
If the compose-type is either 'reply' or 'forward', the variable
|
If the compose-type is a symbol, either `reply' or `forward', the
|
||||||
`mu4e-compose-parent-message' points to the message replied to /
|
variable `mu4e-compose-parent-message' points to the message
|
||||||
being forwarded / edited, and `mu4e-compose-type' contains the
|
replied to / being forwarded / edited, and `mu4e-compose-type'
|
||||||
type of message to be composed.
|
contains the type of message to be composed.
|
||||||
|
|
||||||
Note that there is no draft message yet when this hook runs, it
|
Note that there is no draft message yet when this hook runs, it
|
||||||
is meant for influencing the how mu4e constructs the draft
|
is meant for influencing the how mu4e constructs the draft
|
||||||
|
@ -222,8 +223,8 @@ place to do that."
|
||||||
:group 'mu4e-compose)
|
:group 'mu4e-compose)
|
||||||
|
|
||||||
(defcustom mu4e-compose-dont-reply-to-self nil
|
(defcustom mu4e-compose-dont-reply-to-self nil
|
||||||
"If non-nil, don't include self.
|
"If non-nil, do not include self.
|
||||||
(as decided by `mu4e-personal-address-p')"
|
Selfness is decided by `mu4e-personal-address-p'"
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:group 'mu4e-compose)
|
:group 'mu4e-compose)
|
||||||
|
|
||||||
|
|
|
@ -109,8 +109,8 @@ For backward compatibility, an older form is recognized as well:
|
||||||
\"/archive/\"), and key is a single character.
|
\"/archive/\"), and key is a single character.
|
||||||
|
|
||||||
You can use these shortcuts in the headers and view buffers, for
|
You can use these shortcuts in the headers and view buffers, for
|
||||||
example with `mu4e-mark-for-move-quick' (or 'm', by default) or
|
example with `mu4e-mark-for-move-quick' (or \"m\", by default) or
|
||||||
`mu4e-jump-to-maildir' (or 'j', by default), followed by the
|
`mu4e-jump-to-maildir' (or \"j\", by default), followed by the
|
||||||
designated shortcut character for the maildir.
|
designated shortcut character for the maildir.
|
||||||
|
|
||||||
Unlike in search queries, folder names with spaces in them must
|
Unlike in search queries, folder names with spaces in them must
|
||||||
|
@ -277,10 +277,10 @@ the list of maildirs will not change until you restart mu4e."
|
||||||
|
|
||||||
(defun mu4e-ask-maildir (prompt)
|
(defun mu4e-ask-maildir (prompt)
|
||||||
"Ask the user for a shortcut (using PROMPT).
|
"Ask the user for a shortcut (using PROMPT).
|
||||||
As per (mu4e-maildir-shortcuts), then return the corresponding folder
|
As per (mu4e-maildir-shortcuts), then return the corresponding
|
||||||
name. If the special shortcut 'o' (for _o_ther) is used, or if
|
folder name. If the special shortcut \"o\" (for _o_ther) is used,
|
||||||
`(mu4e-maildir-shortcuts)' evaluates to nil, let user choose from
|
or if (mu4e-maildir-shortcuts) evaluates to nil, let user choose
|
||||||
all maildirs under `mu4e-maildir'."
|
from all maildirs under `mu4e-maildir'."
|
||||||
(let ((prompt (mu4e-format "%s" prompt)))
|
(let ((prompt (mu4e-format "%s" prompt)))
|
||||||
(if (not (mu4e-maildir-shortcuts))
|
(if (not (mu4e-maildir-shortcuts))
|
||||||
(substring-no-properties
|
(substring-no-properties
|
||||||
|
|
|
@ -70,11 +70,13 @@
|
||||||
"A list of header fields to show in the headers buffer.
|
"A list of header fields to show in the headers buffer.
|
||||||
Each element has the form (HEADER . WIDTH), where HEADER is one of
|
Each element has the form (HEADER . WIDTH), where HEADER is one of
|
||||||
the available headers (see `mu4e-header-info') and WIDTH is the
|
the available headers (see `mu4e-header-info') and WIDTH is the
|
||||||
respective width in characters. A width of `nil' means
|
respective width in characters.
|
||||||
'unrestricted', and this is best reserved for the rightmost (last)
|
|
||||||
field. Note that emacs may become very slow with excessively long
|
A width of nil means \"unrestricted\", and this is best reserved
|
||||||
lines (1000s of characters), so if you regularly get such messages,
|
for the rightmost (last) field. Note that emacs may become very
|
||||||
you want to avoid fields with `nil' altogether."
|
slow with excessively long lines (1000s of characters), so if you
|
||||||
|
regularly get such messages, you want to avoid fields with nil
|
||||||
|
altogether."
|
||||||
:type `(repeat (cons (choice ,@(mapcar (lambda (h)
|
:type `(repeat (cons (choice ,@(mapcar (lambda (h)
|
||||||
(list 'const :tag
|
(list 'const :tag
|
||||||
(plist-get (cdr h) :help)
|
(plist-get (cdr h) :help)
|
||||||
|
@ -138,17 +140,17 @@ next mail after marking a message in header view."
|
||||||
|
|
||||||
|
|
||||||
(defvar mu4e-headers-hide-predicate nil
|
(defvar mu4e-headers-hide-predicate nil
|
||||||
"Predicate function applied to headers before they are shown;
|
"Predicate function to hide matching heasders.
|
||||||
if function is nil or evaluates to nil, show the header,
|
If the function evaluates to non-nil when applied a a message
|
||||||
otherwise don't. function takes one parameter MSG, which is the
|
plist, do not show the corresponding header. The function takes
|
||||||
message plist for the message to be hidden or not.
|
one parameter MSG, which is the message plist for the message to
|
||||||
|
be hidden or not.
|
||||||
|
|
||||||
|
Example that hides all trashed messages:
|
||||||
|
|
||||||
Example that hides all 'trashed' messages:
|
|
||||||
(setq mu4e-headers-hide-predicate
|
(setq mu4e-headers-hide-predicate
|
||||||
(lambda (msg)
|
(lambda (msg)
|
||||||
(member 'trashed (mu4e-message-field msg :flags))))
|
(member \='trashed (mu4e-message-field msg :flags)))).")
|
||||||
|
|
||||||
Note that this is merely a display filter.")
|
|
||||||
|
|
||||||
(defcustom mu4e-headers-visible-flags
|
(defcustom mu4e-headers-visible-flags
|
||||||
'(draft flagged new passed replied trashed attach encrypted signed list personal)
|
'(draft flagged new passed replied trashed attach encrypted signed list personal)
|
||||||
|
@ -507,10 +509,10 @@ while our display may be different)."
|
||||||
|
|
||||||
(defun mu4e~headers-from-or-to (msg)
|
(defun mu4e~headers-from-or-to (msg)
|
||||||
"Get the From: address from MSG if not one of user's; otherwise get To:.
|
"Get the From: address from MSG if not one of user's; otherwise get To:.
|
||||||
When the from address for message MSG is one of the the user's addresses,
|
When the from address for message MSG is one of the the user's
|
||||||
\(as per `mu4e-personal-address-p'), show the To address;
|
addresses, (as per `mu4e-personal-address-p'), show the To
|
||||||
otherwise ; show the from address; prefixed with the appropriate
|
address. Otherwise, show the From address, prefixed with the
|
||||||
`mu4e-headers-from-or-to-prefix'."
|
appropriate `mu4e-headers-from-or-to-prefix'."
|
||||||
(let* ((from1 (car-safe (mu4e-message-field msg :from)))
|
(let* ((from1 (car-safe (mu4e-message-field msg :from)))
|
||||||
(from1-addr (and from1 (mu4e-contact-email from1)))
|
(from1-addr (and from1 (mu4e-contact-email from1)))
|
||||||
(is-user (and from1-addr (mu4e-personal-address-p from1-addr))))
|
(is-user (and from1-addr (mu4e-personal-address-p from1-addr))))
|
||||||
|
@ -520,12 +522,11 @@ otherwise ; show the from address; prefixed with the appropriate
|
||||||
(concat (car mu4e-headers-from-or-to-prefix)
|
(concat (car mu4e-headers-from-or-to-prefix)
|
||||||
(mu4e~headers-contact-str (mu4e-message-field msg :from))))))
|
(mu4e~headers-contact-str (mu4e-message-field msg :from))))))
|
||||||
|
|
||||||
|