mu4e: some flycheck fixes

This commit is contained in:
Dirk-Jan C. Binnema 2024-05-17 18:45:15 +03:00
parent 66001c9148
commit 142d91f218
3 changed files with 15 additions and 13 deletions

View File

@ -380,15 +380,16 @@ non-nil, make it a \"wide\" reply (a.k.a. \"reply-to-all\")."
;;;###autoload
(defun mu4e-compose-reply (&optional wide)
"Reply to the message at point. If WIDE is
non-nil, make it a \"wide\" reply (a.k.a. \"reply-to-all\")."
"Reply to the message at point.
If WIDE is non-nil, make it a \"wide\" reply (a.k.a.
\"reply-to-all\")."
(interactive "P")
(mu4e-compose-reply-to nil wide))
;;;###autoload
(defun mu4e-compose-wide-reply ()
"Wide reply to the message at point.
(a.k.a. \"reply-to-all\")."
I.e., \"reply-to-all\"."
(interactive)
(mu4e-compose-reply-to nil t))1

View File

@ -1,6 +1,6 @@
;;; mu4e-contacts.el --- Dealing with contacts -*- lexical-binding: t -*-
;; Copyright (C) 2022-2023 Dirk-Jan C. Binnema
;; Copyright (C) 2022-2024 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
@ -69,7 +69,7 @@ Lowering this variable reduces start-up time and memory usage."
:group 'mu4e-compose)
;; names and mail-addresses can be mapped onto their canonical
;; counterpart. use the customizeable function
;; counterpart. Use the customizable function
;; mu4e-canonical-contact-function to do that. below the identity
;; function for mapping a contact onto the canonical one.
(defun mu4e-contact-identity (contact)
@ -84,9 +84,9 @@ their canonical counterpart; useful as an example."
(lambda(addr)
(cond
((string-match-p "reply" addr)
;; no-reply adresses are not useful of course, but neither are are
;; reply-xxxx addresses since they're autogenerated only useful for direct
;; replies.
;; no-reply addresses are not useful of course, but neither are are
;; reply-xxxx addresses since they're auto-generated only useful for
;; direct replies.
nil)
(t addr)))
"Function for processing contact information for use in auto-completion.
@ -157,7 +157,7 @@ That is, does it match either `mu4e-personal-address-p' or
`message-alternative-emails'.
Note that this expanded definition of user-addresses is only used
in emacs, not in `mu' (e.g. when indexing).
in Emacs, not in `mu' (e.g., when indexing).
Also see `mu4e-personal-or-alternative-address-or-empty-p'."
(let ((alts message-alternative-emails))
@ -175,7 +175,7 @@ return t for _empty_ ADDR. This can be useful for use with
`message-dont-reply-to-names' since it can receive empty strings;
those can be filtered-out by returning t here.
See #2680 for further details. "
See #2680 for further details."
(or (and addr (string= addr ""))
(mu4e-personal-or-alternative-address-p addr)))

View File

@ -612,13 +612,13 @@ COMPOSE-TYPE and PARENT are as in `mu4e--draft'."
(undo-boundary))
;;
;; mu4e-compose-pos-hook helpers
;; mu4e-compose-post-hook helpers
(defvar mu4e--before-draft-window-config nil
"The window configuration just before creating the draft.")
(defun mu4e-compose-post-restore-window-configuration()
"Function that perhaps restores the window configuration.
"Function that might restore the window configuration.
I.e. the configuration just before the draft buffer appeared.
This is for use in `mu4e-compose-post-hook'.
See `set-window-configuration' for further details."
@ -632,7 +632,7 @@ See `set-window-configuration' for further details."
Used internally for mu4e-compose-post-kill-frame.")
(defun mu4e-compose-post-kill-frame ()
"Function that perhaps kills the composition frame.
"Function that might kill the composition frame.
This is for use in `mu4e-compose-post-hook'."
(let ((msgframe (selected-frame)))
;;(message "kill frame? %s %s" mu4e--draft-activation-frame msgframe)
@ -744,3 +744,4 @@ but note the different order."
parent))
(provide 'mu4e-draft)
;;; mu4e-draft.el ends here