mu4e: Fix dictionary detection on non-lowercase email addresses
parent
7a48d1f75a
commit
c2ff1119f9
|
@ -129,7 +129,7 @@ Default to unread messages if the header buffer does not already exist."
|
||||||
if (and email-list language)
|
if (and email-list language)
|
||||||
;; Build an alist of (EMAIL . LANGUAGE).
|
;; Build an alist of (EMAIL . LANGUAGE).
|
||||||
nconc (cl-loop for email in email-list
|
nconc (cl-loop for email in email-list
|
||||||
collect (cons email language))))
|
collect (cons (downcase email) language))))
|
||||||
(while addresses
|
(while addresses
|
||||||
(if (not (assoc (car addresses) address-lang-map))
|
(if (not (assoc (car addresses) address-lang-map))
|
||||||
(setq addresses (cdr addresses))
|
(setq addresses (cdr addresses))
|
||||||
|
@ -180,31 +180,34 @@ The \"From\", \"To\", \"Cc\" and \"Bcc\" fields are looked up.
|
||||||
Addresses in `mu4e-user-mail-address-list' are filtered out.
|
Addresses in `mu4e-user-mail-address-list' are filtered out.
|
||||||
Duplicates are removed."
|
Duplicates are removed."
|
||||||
(require 'cl)
|
(require 'cl)
|
||||||
|
;; TODO: Replace by cl-loop.
|
||||||
(cl-delete-duplicates
|
(cl-delete-duplicates
|
||||||
(seq-remove
|
(seq-remove
|
||||||
(lambda (contact) (member (cadr contact) mu4e-user-mail-address-list))
|
(lambda (contact) (member (cadr contact) mu4e-user-mail-address-list))
|
||||||
(apply 'append
|
(seq-map (lambda (contact) (list (car contact) (and (cadr contact) (downcase (cadr contact)))))
|
||||||
(if (eq major-mode 'mu4e-compose-mode)
|
(apply 'append
|
||||||
(save-restriction
|
(if (eq major-mode 'mu4e-compose-mode)
|
||||||
(message-narrow-to-headers)
|
(save-restriction
|
||||||
(mapcar
|
(message-narrow-to-headers)
|
||||||
(lambda (addr) (mail-extract-address-components (message-fetch-field addr) t))
|
(mapcar
|
||||||
(seq-filter 'message-fetch-field
|
(lambda (addr) (mail-extract-address-components
|
||||||
'("From" "To" "Cc" "Bcc"))))
|
(message-fetch-field addr) t))
|
||||||
(unless (buffer-live-p (mu4e-get-headers-buffer))
|
(seq-filter 'message-fetch-field
|
||||||
(mu4e-error "no headers buffer connected"))
|
'("From" "To" "Cc" "Bcc"))))
|
||||||
(let ((msg (or (mu4e-message-at-point 'noerror)
|
(unless (buffer-live-p (mu4e-get-headers-buffer))
|
||||||
(with-current-buffer (mu4e-get-headers-buffer)
|
(mu4e-error "no headers buffer connected"))
|
||||||
;; When loading messages, point might
|
(let ((msg (or (mu4e-message-at-point 'noerror)
|
||||||
;; not be over a message yet.
|
(with-current-buffer (mu4e-get-headers-buffer)
|
||||||
(mu4e-message-at-point 'noerror)))))
|
;; When loading messages, point might
|
||||||
(when msg
|
;; not be over a message yet.
|
||||||
(delq nil
|
(mu4e-message-at-point 'noerror)))))
|
||||||
(mapcar (lambda (field)
|
(when msg
|
||||||
;; `mu4e-message-field' returns a list of (NAME . EMAIL).
|
(delq nil
|
||||||
(mapcar (lambda (addr) (list (car addr) (cdr addr)))
|
(mapcar (lambda (field)
|
||||||
(mu4e-message-field msg field)))
|
;; `mu4e-message-field' returns a list of (NAME . EMAIL).
|
||||||
'(:from :to :cc :bcc))))))))))
|
(mapcar (lambda (addr) (list (car addr) (cdr addr)))
|
||||||
|
(mu4e-message-field msg field)))
|
||||||
|
'(:from :to :cc :bcc)))))))))))
|
||||||
|
|
||||||
(defun ambrevar/message-send-maybe-crypted ()
|
(defun ambrevar/message-send-maybe-crypted ()
|
||||||
"Crypt message if all recipients have a trusted key.
|
"Crypt message if all recipients have a trusted key.
|
||||||
|
|
Loading…
Reference in New Issue