mu4e: move mu4e-bookmark defstruct to vars
Avoid compilation problem.
This commit is contained in:
@ -396,18 +396,6 @@ and offer to create it if it does not exist yet."
|
|||||||
(mu4e~proc-mkdir fullpath)))
|
(mu4e~proc-mkdir fullpath)))
|
||||||
mdir))
|
mdir))
|
||||||
|
|
||||||
|
|
||||||
(cl-defstruct mu4e-bookmark
|
|
||||||
"A mu4e bookmarl object with the following members:
|
|
||||||
- `name': the user-visible name of the bookmark
|
|
||||||
- `key': a single key to search for this bookmark
|
|
||||||
- `query': the query for this bookmark. Either a literal string or a function
|
|
||||||
that evaluates to a string."
|
|
||||||
name ;; name/description of the bookmark
|
|
||||||
query ;; a query (a string or a function evaluation to string)
|
|
||||||
key ;; key to activate the bookmark
|
|
||||||
)
|
|
||||||
|
|
||||||
(defun mu4e-bookmarks ()
|
(defun mu4e-bookmarks ()
|
||||||
"Get `mu4e-bookmarks' in the (new) format, converting from the old
|
"Get `mu4e-bookmarks' in the (new) format, converting from the old
|
||||||
format if needed."
|
format if needed."
|
||||||
|
|||||||
@ -29,6 +29,7 @@
|
|||||||
(require 'mu4e-meta)
|
(require 'mu4e-meta)
|
||||||
(require 'message)
|
(require 'message)
|
||||||
|
|
||||||
|
|
||||||
(defgroup mu4e nil
|
(defgroup mu4e nil
|
||||||
"mu4e - mu for emacs"
|
"mu4e - mu for emacs"
|
||||||
:group 'mail)
|
:group 'mail)
|
||||||
@ -200,6 +201,17 @@ If the string exceeds this limit, it will be truncated to fit."
|
|||||||
(defvar mu4e-debug nil
|
(defvar mu4e-debug nil
|
||||||
"When set to non-nil, log debug information to the *mu4e-log* buffer.")
|
"When set to non-nil, log debug information to the *mu4e-log* buffer.")
|
||||||
|
|
||||||
|
(cl-defstruct mu4e-bookmark
|
||||||
|
"A mu4e bookmarl object with the following members:
|
||||||
|
- `name': the user-visible name of the bookmark
|
||||||
|
- `key': a single key to search for this bookmark
|
||||||
|
- `query': the query for this bookmark. Either a literal string or a function
|
||||||
|
that evaluates to a string."
|
||||||
|
name ;; name/description of the bookmark
|
||||||
|
query ;; a query (a string or a function evaluation to string)
|
||||||
|
key ;; key to activate the bookmark
|
||||||
|
)
|
||||||
|
|
||||||
(defcustom mu4e-bookmarks
|
(defcustom mu4e-bookmarks
|
||||||
`( ,(make-mu4e-bookmark
|
`( ,(make-mu4e-bookmark
|
||||||
:name "Unread messages"
|
:name "Unread messages"
|
||||||
|
|||||||
Reference in New Issue
Block a user