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

mu4e: cosmetic

Browse Source
This commit is contained in:
djcb
2017-11-02 07:51:00 +02:00
parent d72d298818
commit c3aca5b29e
2 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
mu4e/mu4e-proc.el
View File

@ -303,7 +303,7 @@ Start the process if needed."
((eq code 11) ((eq code 11)
(error "Database is locked by another process")) (error "Database is locked by another process"))
((eq code 15) ((eq code 15)
(error "Database needs upgrade; try `mu index --rebuild' from the command line")) (error "Database needs upgrade; try `mu index --rebuild'"))
((eq code 19) ((eq code 19)
(error "Database empty; try indexing some messages")) (error "Database empty; try indexing some messages"))
(t (error "mu server process ended with exit code %d" code)))) (t (error "mu server process ended with exit code %d" code))))
@ -343,7 +343,8 @@ or an error."
(if threads "true" "false") (if threads "true" "false")
;; sortfield is e.g. ':subject'; this removes the ':' ;; sortfield is e.g. ':subject'; this removes the ':'
(if (null sortfield) "nil" (substring (symbol-name sortfield) 1)) (if (null sortfield) "nil" (substring (symbol-name sortfield) 1))
;; TODO: use ascending/descending in backend too (it's clearer than 'reverse' ;; TODO: use ascending/descending in backend too (it's clearer than
;; 'reverse'
(if (eq sortdir 'descending) "true" "false") (if (eq sortdir 'descending) "true" "false")
(if maxnum maxnum -1) (if maxnum maxnum -1)
(if skip-dups "true" "false") (if skip-dups "true" "false")
@ -385,7 +386,8 @@ or (:error ) sexp, which are handled my `mu4e-update-func' and
`mu4e-error-func', respectively." `mu4e-error-func', respectively."
(unless (or maildir flags) (unless (or maildir flags)
(mu4e-error "At least one of maildir and flags must be specified")) (mu4e-error "At least one of maildir and flags must be specified"))
(unless (or (not maildir) (file-exists-p (concat mu4e-maildir "/" maildir "/"))) (unless (or (not maildir)
(file-exists-p (concat mu4e-maildir "/" maildir "/")))
(mu4e-error "Target dir does not exist")) (mu4e-error "Target dir does not exist"))
(let* ((idparam (mu4e~docid-msgid-param docid-or-msgid)) (let* ((idparam (mu4e~docid-msgid-param docid-or-msgid))
(flagstr (flagstr
@ -396,7 +398,8 @@ or (:error ) sexp, which are handled my `mu4e-update-func' and
(when maildir (when maildir
(format " maildir:%s" (mu4e~escape maildir)))) (format " maildir:%s" (mu4e~escape maildir))))
(rename (rename
(if (and maildir mu4e-change-filenames-when-moving) "true" "false"))) (if (and maildir mu4e-change-filenames-when-moving)
"true" "false")))
(mu4e~proc-send-command "cmd:move %s %s %s %s" (mu4e~proc-send-command "cmd:move %s %s %s %s"
idparam (or flagstr "") (or path "") idparam (or flagstr "") (or path "")
(format "newname:%s" rename)))) (format "newname:%s" rename))))
@ -408,7 +411,8 @@ of 'my' email addresses (see `mu4e-user-mail-address-list')."
(let ((path (mu4e~escape path)) (let ((path (mu4e~escape path))
(addrs (when my-addresses (mapconcat 'identity my-addresses ",")))) (addrs (when my-addresses (mapconcat 'identity my-addresses ","))))
(if addrs (if addrs
(mu4e~proc-send-command "cmd:index path:%s my-addresses:%s cleanup:%s lazy-check:%s" (mu4e~proc-send-command
"cmd:index path:%s my-addresses:%s cleanup:%s lazy-check:%s"
path addrs (if cleanup "true" : "false") (if lazy-check "true")) path addrs (if cleanup "true" : "false") (if lazy-check "true"))
(mu4e~proc-send-command "cmd:index path:%s" path)))) (mu4e~proc-send-command "cmd:index path:%s" path))))
@ -454,7 +458,8 @@ The result will be delivered to the function registered as
"Create a new maildir-directory at filesystem PATH." "Create a new maildir-directory at filesystem PATH."
(mu4e~proc-send-command "cmd:mkdir path:%s" (mu4e~escape path))) (mu4e~proc-send-command "cmd:mkdir path:%s" (mu4e~escape path)))
(defun mu4e~proc-extract (action docid partidx decrypt &optional path what param) (defun mu4e~proc-extract (action docid partidx decrypt
&optional path what param)
"Extract an attachment with index PARTIDX from message with DOCID "Extract an attachment with index PARTIDX from message with DOCID
and perform ACTION on it (as symbol, either `save', `open', `temp') which and perform ACTION on it (as symbol, either `save', `open', `temp') which
mean: mean:

3
mu4e/mu4e-vars.el
View File

@ -257,7 +257,8 @@ view buffer."
:type 'boolean :type 'boolean
:group 'mu4e) :group 'mu4e)
(defcustom mu4e-cited-regexp "^\\(\\([[:alpha:]]+\\)\\|\\( *\\)\\)\\(\\(>+ ?\\)+\\)" (defcustom mu4e-cited-regexp
"^\\(\\([[:alpha:]]+\\)\\|\\( *\\)\\)\\(\\(>+ ?\\)+\\)"
"Regular expression that determines whether a line is a "Regular expression that determines whether a line is a
citation. This recognizes lines starting with numbers of '>' citation. This recognizes lines starting with numbers of '>'
and spaces as well as citations of the type \"John> ... \"." and spaces as well as citations of the type \"John> ... \"."