emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

update new function names of mu4e's main-action-str and 

main-view-queue
This commit is contained in:
Dung Nguyen 2022-02-15 17:18:32 -05:00
parent 1959625fca
commit 5fc758d3b7
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
modes/mu4e/evil-collection-mu4e.el
View File

@ -68,8 +68,8 @@
(require 'evil-collection) (require 'evil-collection)
(require 'mu4e nil t) (require 'mu4e nil t)
(declare-function mu4e~main-action-str "mu4e-main") (declare-function mu4e--main-action-str "mu4e-main")
(declare-function mu4e~main-view-queue "mu4e-main") (declare-function mu4e--main-view-queue "mu4e-main")
(defvar smtpmail-send-queued-mail) (defvar smtpmail-send-queued-mail)
(defvar smtpmail-queue-dir) (defvar smtpmail-queue-dir)
@ -275,9 +275,9 @@
"The place where to end overriding Basic section.") "The place where to end overriding Basic section.")
(defvar evil-collection-mu4e-new-region-basic (defvar evil-collection-mu4e-new-region-basic
(concat (mu4e~main-action-str "\t* [J]ump to some maildir\n" 'mu4e-jump-to-maildir) (concat (mu4e--main-action-str "\t* [J]ump to some maildir\n" 'mu4e-jump-to-maildir)
(mu4e~main-action-str "\t* enter a [s]earch query\n" 'mu4e-search) (mu4e--main-action-str "\t* enter a [s]earch query\n" 'mu4e-search)
(mu4e~main-action-str "\t* [C]ompose a new message\n" 'mu4e-compose-new)) (mu4e--main-action-str "\t* [C]ompose a new message\n" 'mu4e-compose-new))
"Define the evil-mu4e Basic region.") "Define the evil-mu4e Basic region.")
(defvar evil-collection-mu4e-begin-region-misc "\n Misc" (defvar evil-collection-mu4e-begin-region-misc "\n Misc"
@ -289,20 +289,20 @@
(defun evil-collection-mu4e-new-region-misc () (defun evil-collection-mu4e-new-region-misc ()
"Define the evil-mu4e Misc region." "Define the evil-mu4e Misc region."
(concat (concat
(mu4e~main-action-str "\t* [;]Switch focus\n" 'mu4e-context-switch) (mu4e--main-action-str "\t* [;]Switch focus\n" 'mu4e-context-switch)
(mu4e~main-action-str "\t* [u]pdate email & database (Alternatively: gr)\n" (mu4e--main-action-str "\t* [u]pdate email & database (Alternatively: gr)\n"
'mu4e-update-mail-and-index) 'mu4e-update-mail-and-index)
;; show the queue functions if `smtpmail-queue-dir' is defined ;; show the queue functions if `smtpmail-queue-dir' is defined
(if (file-directory-p smtpmail-queue-dir) (if (file-directory-p smtpmail-queue-dir)
(mu4e~main-view-queue) (mu4e--main-view-queue)
"") "")
"\n" "\n"
(mu4e~main-action-str "\t* [N]ews\n" 'mu4e-news) (mu4e--main-action-str "\t* [N]ews\n" 'mu4e-news)
(mu4e~main-action-str "\t* [A]bout mu4e\n" 'mu4e-about) (mu4e--main-action-str "\t* [A]bout mu4e\n" 'mu4e-about)
(mu4e~main-action-str "\t* [H]elp\n" 'mu4e-display-manual) (mu4e--main-action-str "\t* [H]elp\n" 'mu4e-display-manual)
(mu4e~main-action-str "\t* [q]uit\n" 'mu4e-quit))) (mu4e--main-action-str "\t* [q]uit\n" 'mu4e-quit)))
(defun evil-collection-mu4e-replace-region (new-region start end) (defun evil-collection-mu4e-replace-region (new-region start end)
"Replace region between START and END with NEW-REGION. "Replace region between START and END with NEW-REGION.