Mu4e: Remove spurious autoloads

None of these functions are called outside the file they're defined in.
This commit is contained in:
TEC 2021-07-23 02:48:39 +08:00
parent 695a670785
commit e5c8cb747b
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
2 changed files with 0 additions and 13 deletions

View file

@ -77,9 +77,6 @@ default/fallback account."
;; TODO Interactively select email account
(call-interactively #'mu4e-compose-new))
;; Icons need a bit of work
;; Spacing needs to be determined and adjucted
;;;###autoload
(defun +mu4e--get-string-width (str)
"Return the width in pixels of a string in the current
window's default font. If the font is mono-spaced, this
@ -93,7 +90,6 @@ will also be the width of all other printable characters."
(insert str)
(car (window-text-pixel-size)))))
;;;###autoload
(cl-defun +mu4e-normalised-icon (name &key set color height v-adjust)
"Convert :icon declaration to icon"
(let* ((icon-set (intern (concat "all-the-icons-" (or set "faicon"))))
@ -123,7 +119,6 @@ will also be the width of all other printable characters."
mu4e-headers-signed-mark (cons "s" (+mu4e-normalised-icon "certificate" :height 0.7 :color "dpurple"))
mu4e-headers-unread-mark (cons "u" (+mu4e-normalised-icon "eye-slash" :v-adjust 0.05))))
;;;###autoload
(defun +mu4e-colorize-str (str &optional unique herring)
"Apply a face from `+mu4e-header-colorized-faces' to STR.
If HERRING is set, it will be used to determine the face instead of STR.
@ -155,7 +150,6 @@ a quoted symbol for a alist of current strings and faces provided."
str)
str)
;;;###autoload
(defun +mu4e--str-color-face (str &optional offset)
"Select a face from `+mu4e-header-colorized-faces' based on
STR and any integer OFFSET."
@ -294,7 +288,6 @@ When otherwise called, open a dired buffer and enable `dired-mu4e-attach-ctrl-c-
(with-current-buffer (call-interactively #'find-file)
(dired-mu4e-attach-ctrl-c-ctrl-c 1)))))
;;;###autoload
(define-minor-mode dired-mu4e-attach-ctrl-c-ctrl-c
"Adds C-c C-c as an keybinding to attach files to a message."
:lighter "attach"
@ -306,7 +299,6 @@ When otherwise called, open a dired buffer and enable `dired-mu4e-attach-ctrl-c-
(substitute-command-keys
"Mu4e attach active. `\\[+mu4e/attach-files]' to attach the marked files."))))
;;;###autoload
(defun +mu4e-current-buffers ()
"Return a list of active message buffers."
(let (buffers)

View file

@ -10,7 +10,6 @@
(defvar +mu4e-lock-relaxed t
"Whether if someone else wants the lock (signaled via `+mu4e-lock-request-file'), we should stop Mu4e and let go of it")
;;;###autoload
(defun +mu4e-lock-pid-info ()
"Get info on the PID refered to in `+mu4e-lock-file' in the form (pid . process-attributes)
If the file or process do not exist, the lock file is deleted an nil returned."
@ -24,7 +23,6 @@
(if process (cons pid process)
(delete-file +mu4e-lock-file) nil))))
;;;###autoload
(defun +mu4e-lock-available (&optional strict)
"If the `+mu4e-lock-file' is available (unset or owned by this emacs) return t.
If STRICT only accept an unset lock file."
@ -63,7 +61,6 @@ Else, write to this process' PID to the lock file"
(defvar +mu4e-lock--file-just-deleted nil)
(defvar +mu4e-lock--request-watcher nil)
;;;###autoload
(defun +mu4e-lock-add-watcher ()
(setq +mu4e-lock--file-just-deleted nil)
(file-notify-rm-watch +mu4e-lock--file-watcher)
@ -72,7 +69,6 @@ Else, write to this process' PID to the lock file"
'(change)
#'+mu4e-lock-file-updated)))
;;;###autoload
(defun +mu4e-lock-request (event)
"Handle another process requesting the Mu4e lock."
(when (equal (nth 1 event) 'created)
@ -84,7 +80,6 @@ Else, write to this process' PID to the lock file"
(run-at-time 0.2 nil #'+mu4e-lock-add-watcher))
(delete-file +mu4e-lock-request-file)))
;;;###autoload
(defun +mu4e-lock-file-updated (event)
(if +mu4e-lock--file-just-deleted
(+mu4e-lock-add-watcher)