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

mu4e: update to use server maildir/database/addresses

Browse Source 
Mkae mu4e-maildir and mu4e-personal-addresses obsolete, we get those
from the server.
This commit is contained in:
Dirk-Jan C. Binnema
2020-02-06 20:28:24 +02:00
parent dea4789e0e
commit e1e26d1da2
17 changed files with 791 additions and 889 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mu4e/mu4e-message.el
View File

@ -1,6 +1,6 @@
;;; mu4e-message.el -- part of mu4e, the mu mail user agent -*- lexical-binding: t -*-
;;
;; Copyright (C) 2012-2018 Dirk-Jan C. Binnema
;; Copyright (C) 2012-2020 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
@ -243,11 +243,11 @@ replace with."
(with-temp-buffer
(insert body)
(goto-char (point-min))
(while (re-search-forward "[
(while (re-search-forward "[
 ’]" nil t)
(replace-match
(cond
((string= (match-string 0) "<EFBFBD>") "'")
(cond
((string= (match-string 0) "’") "'")
((string= (match-string 0) " ") " ")
(t ""))))
(buffer-string)))
@ -282,14 +282,14 @@ expressions, in which case any of those are tried for a match."
"Does contact-field CFIELD in MSG match me?
Checks whether any of the of the contacts in field
CFIELD (either :to, :from, :cc or :bcc) of msg MSG matches *me*,
that is, any of the e-mail address in
that is, any of the e-mail address in
`(mu4e-personal-addresses)'. Returns the contact cell that
matched, or nil."
(cl-find-if
(lambda (cc-cell)
(cl-member-if
(lambda (addr)
(string= (downcase addr) (downcase (cdr cc-cell))))
(string= (downcase addr) (downcase (cdr cc-cell))))
(mu4e-personal-addresses)))
(mu4e-message-field msg cfield)))