93 |
:group 'mailalias) |
:group 'mailalias) |
94 |
|
|
95 |
(defcustom mail-directory-function nil |
(defcustom mail-directory-function nil |
96 |
"*Function to get completions from directory service or `nil' for none. |
"*Function to get completions from directory service or nil for none. |
97 |
See `mail-directory-requery'." |
See `mail-directory-requery'." |
98 |
:type '(choice function (const nil)) |
:type '(choice function (const nil)) |
99 |
:group 'mailalias) |
:group 'mailalias) |
100 |
|
|
101 |
;; This is for when the directory is huge, or changes frequently. |
;; This is for when the directory is huge, or changes frequently. |
102 |
(defcustom mail-directory-requery nil |
(defcustom mail-directory-requery nil |
103 |
"*When non-`nil' call `mail-directory-function' for each completion. |
"*When non-nil call `mail-directory-function' for each completion. |
104 |
In that case, one argument gets passed to the function, the partial string |
In that case, one argument gets passed to the function, the partial string |
105 |
entered so far." |
entered so far." |
106 |
:type 'boolean |
:type 'boolean |
478 |
|
|
479 |
|
|
480 |
(defun mail-directory (pattern) |
(defun mail-directory (pattern) |
481 |
"Call directory to get names matching PATTERN or all if `nil'. |
"Call directory to get names matching PATTERN or all if nil. |
482 |
Calls `mail-directory-function' and applies `mail-directory-parser' to output." |
Calls `mail-directory-function' and applies `mail-directory-parser' to output." |
483 |
(save-excursion |
(save-excursion |
484 |
(message "Querying directory...") |
(message "Querying directory...") |