emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Mu4e: correct misspelling

Browse source
This commit is contained in:
TEC 2020-10-14 14:05:50 +08:00
parent 7dff598725
commit 2a2f8bfbac
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/email/mu4e/autoload/email.el
View file

@ -379,8 +379,8 @@ scales the image to account for the value of :scale in `org-format-latex-options
(delete-file +mu4e-lock-file) nil)))) (delete-file +mu4e-lock-file) nil))))
;;;###autoload ;;;###autoload
(defun +mu4e-lock-avalible (&optional strict) (defun +mu4e-lock-available (&optional strict)
"If the `+mu4e-lock-file' is avalible (unset or owned by this emacs) return t. "If the `+mu4e-lock-file' is available (unset or owned by this emacs) return t.
If STRICT only accept an unset lock file." If STRICT only accept an unset lock file."
(not (when-let* ((lock-info (+mu4e-lock-pid-info)) (not (when-let* ((lock-info (+mu4e-lock-pid-info))
(pid (car lock-info))) (pid (car lock-info)))
@ -389,7 +389,7 @@ If STRICT only accept an unset lock file."
;;;###autoload ;;;###autoload
(defun +mu4e-lock-file-delete-maybe () (defun +mu4e-lock-file-delete-maybe ()
"Check `+mu4e-lock-file', and delete it if this process is responsible for it." "Check `+mu4e-lock-file', and delete it if this process is responsible for it."
(when (+mu4e-lock-avalible) (when (+mu4e-lock-available)
(delete-file +mu4e-lock-file) (delete-file +mu4e-lock-file)
(file-notify-rm-watch +mu4e-lock--request-watcher))) (file-notify-rm-watch +mu4e-lock--request-watcher)))
@ -397,12 +397,12 @@ If STRICT only accept an unset lock file."
(defun +mu4e-lock-start (orig-fun &optional callback) (defun +mu4e-lock-start (orig-fun &optional callback)
"Check `+mu4e-lock-file', and if another process is responsible for it, abort starting. "Check `+mu4e-lock-file', and if another process is responsible for it, abort starting.
Else, write to this process' PID to the lock file" Else, write to this process' PID to the lock file"
(unless (+mu4e-lock-avalible) (unless (+mu4e-lock-available)
(shell-command (format "touch %s" +mu4e-lock-request-file)) (shell-command (format "touch %s" +mu4e-lock-request-file))
(message "Lock file exists, requesting that it be given up") (message "Lock file exists, requesting that it be given up")
(sleep-for 0.1) (sleep-for 0.1)
(delete-file +mu4e-lock-request-file)) (delete-file +mu4e-lock-request-file))
(if (not (+mu4e-lock-avalible)) (if (not (+mu4e-lock-available))
(user-error "Unfortunately another Emacs is already doing stuff with Mu4e, and you can only have one at a time") (user-error "Unfortunately another Emacs is already doing stuff with Mu4e, and you can only have one at a time")
(f-write-text (number-to-string (emacs-pid)) 'utf-8 +mu4e-lock-file) (f-write-text (number-to-string (emacs-pid)) 'utf-8 +mu4e-lock-file)
(delete-file +mu4e-lock-request-file) (delete-file +mu4e-lock-request-file)
@ -443,6 +443,6 @@ Else, write to this process' PID to the lock file"
(+mu4e-lock-add-watcher) (+mu4e-lock-add-watcher)
(when (equal (nth 1 event) 'deleted) (when (equal (nth 1 event) 'deleted)
(setq +mu4e-lock--file-just-deleted t) (setq +mu4e-lock--file-just-deleted t)
(when (and +mu4e-lock-greedy (+mu4e-lock-avalible t)) (when (and +mu4e-lock-greedy (+mu4e-lock-available t))
(message "Noticed Mu4e lock was avalible, grabbed it") (message "Noticed Mu4e lock was available, grabbed it")
(run-at-time 0.2 nil #'mu4e~start))))) (run-at-time 0.2 nil #'mu4e~start)))))