/[emacs]/emacs/lisp/mail/mailalias.el
ViewVC logotype

Diff of /emacs/lisp/mail/mailalias.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by lektu, Tue Feb 4 13:14:00 2003 UTC revision 1.50 by lektu, Tue May 6 17:48:06 2003 UTC
# Line 93  If `angles', they look like: Line 93  If `angles', they look like:
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
# Line 478  PATTERN is the string we want to complet Line 478  PATTERN is the string we want to complet
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...")

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26