* mu4e: basic support for auto-completing contacts when composing messages

emacs/mu4e-vars.el

@@ -112,6 +112,39 @@ else: don't split (show either headers or messages, not both) Also
 see `mu4e-headers-visible-lines' and
 `mu4e-headers-visible-columns'.")
 
+;; completion; we put them here rather than in mu4e-compose, as mu4e-utils needs
+;; the variables.
+
+(defgroup mu4e-compose nil
+  "Message-composition related settings."
+  :group 'mu4e)
+
+;; address completion
+(defcustom mu4e-compose-complete-addresses t
+  "Whether to do auto-completion of e-mail addresses."
+  :type 'boolean
+  :group 'mu4e-compose)
+
+(defcustom mu4e-compose-complete-only-personal t
+  "Whether to consider only 'personal' e-mail addresses,
+i.e. addresses from messages where user was explicitly in one of
+the address fields (this excludes mailing list messages)."
+  :type 'boolean
+  :group 'mu4e-compose)
+
+(defcustom mu4e-compose-complete-only-newer-than 500
+  "Consider only contacts last seen less than so many *days*. This
+excludes really old contacts. Set to nil to not have any time-based
+restriction."
+  :type 'integer
+  :group 'mu4e-compose)
+
+(defcustom mu4e-compose-my-email-addresses `(,user-mail-address)
+  "List of e-mail addresses to consider 'my email addresses',
+ie. addresses whose presence in an email imply that it is a
+personal message."
+  :type '(string)
+  :group 'mu4e-compose)
 
 ;; Folders
 (defgroup mu4e-folders nil
@@ -368,6 +401,10 @@ view). Most fields should be self-explanatory. A special one is
 
 (defvar mu4e~view-msg nil "The message being viewed in view mode.")
 
+(defvar mu4e~contacts-for-completion nil
+  "List of contacts (ie. 'name <e-mail>'),
+used by the completion functions in mu4e-compose, and filled when
+mu4e starts.")
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -433,6 +470,10 @@ the server process.")
   "A function called for each (:pong type ....) sexp received from
 the server process.")
 
+(defvar mu4e-contacts-func 'mu4e~default-handler
+  "A function called for each (:contacts (<list-of-contacts>) sexp
+received from the server process.")
+
 (defvar mu4e-temp-func 'mu4e~default-handler
   "A function called for each (:temp <file> <cookie>) sexp received
 from the server process.")