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

mu4e: headers: fix some compiler warnings

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2021-01-18 17:39:11 +02:00
parent 36684c9e97
commit 362c53a7e7
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mu4e/mu4e-headers.el
View File

@ -31,7 +31,7 @@
(require 'cl-lib) (require 'cl-lib)
(require 'fringe) (require 'fringe)
(require 'hl-line) (require 'hl-line)
(require 'mailcap)
(require 'mule-util) ;; seems _some_ people need this for truncate-string-ellipsis (require 'mule-util) ;; seems _some_ people need this for truncate-string-ellipsis
(require 'mu4e-utils) ;; utility functions (require 'mu4e-utils) ;; utility functions
@ -1559,25 +1559,25 @@ or `past'."
(defun mu4e--search-query-competion-at-point () (defun mu4e--search-query-competion-at-point ()
(cond (cond
((not (looking-back "[:\"][^ \t]*")) ((not (looking-back "[:\"][^ \t]*" nil))
(let ((bounds (bounds-of-thing-at-point 'word))) (let ((bounds (bounds-of-thing-at-point 'word)))
(list (or (car bounds) (point)) (list (or (car bounds) (point))
(or (cdr bounds) (point)) (or (cdr bounds) (point))
mu4e--search-query-keywords))) mu4e--search-query-keywords)))
((looking-back "flag:\\(\\w*\\)") ((looking-back "flag:\\(\\w*\\)" nil)
(list (match-beginning 1) (list (match-beginning 1)
(match-end 1) (match-end 1)
'("attach" "draft" "flagged" "list" "new" "passed" "replied" '("attach" "draft" "flagged" "list" "new" "passed" "replied"
"seen" "trashed" "unread" "encrypted" "signed"))) "seen" "trashed" "unread" "encrypted" "signed")))
((looking-back "maildir:\\([a-zA-Z0-9/.]*\\)") ((looking-back "maildir:\\([a-zA-Z0-9/.]*\\)" nil)
(list (match-beginning 1) (list (match-beginning 1)
(match-end 1) (match-end 1)
(mu4e-get-maildirs))) (mu4e-get-maildirs)))
((looking-back "prio:\\(\\w*\\)") ((looking-back "prio:\\(\\w*\\)" nil)
(list (match-beginning 1) (list (match-beginning 1)
(match-end 1) (match-end 1)
(list "high" "normal" "low"))) (list "high" "normal" "low")))
((looking-back "mime:\\([a-zA-Z0-9/-]*\\)") ((looking-back "mime:\\([a-zA-Z0-9/-]*\\)" nil)
(list (match-beginning 1) (list (match-beginning 1)
(match-end 1) (match-end 1)
(mailcap-mime-types))))) (mailcap-mime-types)))))