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

mu4e: some flycheck fixes

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-compose.el
View File

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

12
mu4e/mu4e-contacts.el
View File

@ -1,6 +1,6 @@
;;; mu4e-contacts.el --- Dealing with contacts -*- lexical-binding: t -*- ;;; 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> ;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: 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) :group 'mu4e-compose)
;; names and mail-addresses can be mapped onto their canonical ;; 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 ;; mu4e-canonical-contact-function to do that. below the identity
;; function for mapping a contact onto the canonical one. ;; function for mapping a contact onto the canonical one.
(defun mu4e-contact-identity (contact) (defun mu4e-contact-identity (contact)
@ -84,9 +84,9 @@ their canonical counterpart; useful as an example."
(lambda(addr) (lambda(addr)
(cond (cond
((string-match-p "reply" addr) ((string-match-p "reply" addr)
;; no-reply adresses are not useful of course, but neither are are ;; no-reply addresses are not useful of course, but neither are are
;; reply-xxxx addresses since they're autogenerated only useful for direct ;; reply-xxxx addresses since they're auto-generated only useful for
;; replies. ;; direct replies.
nil) nil)
(t addr))) (t addr)))
"Function for processing contact information for use in auto-completion. "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'. `message-alternative-emails'.
Note that this expanded definition of user-addresses is only used 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'." Also see `mu4e-personal-or-alternative-address-or-empty-p'."
(let ((alts message-alternative-emails)) (let ((alts message-alternative-emails))

7
mu4e/mu4e-draft.el
View File

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