Mercurial > emacs

comparison lisp/mail/mailabbrev.el @ 88123:375f2633d815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New directory
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 11:56:09 +0000
parents 695cf19ef79e
children 68c22ea6027c
comparison
equal deleted inserted replaced
52428:27bc8b966642 88123:375f2633d815
159 159
160 (defvar mail-abbrev-modtime nil 160 (defvar mail-abbrev-modtime nil
161 "The modification time of your mail alias file when it was last examined.") 161 "The modification time of your mail alias file when it was last examined.")
162 162
163 (defun mail-abbrevs-sync-aliases () 163 (defun mail-abbrevs-sync-aliases ()
164 (when mail-personal-alias-file 164 (if (file-exists-p mail-personal-alias-file)
165 (if (file-exists-p mail-personal-alias-file) 165 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
166 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) 166 (if (not (equal mail-abbrev-modtime modtime))
167 (if (not (equal mail-abbrev-modtime modtime)) 167 (progn
168 (progn 168 (setq mail-abbrev-modtime modtime)
169 (setq mail-abbrev-modtime modtime) 169 (build-mail-abbrevs))))))
170 (build-mail-abbrevs)))))))
171 170
172 ;;;###autoload 171 ;;;###autoload
173 (defun mail-abbrevs-setup () 172 (defun mail-abbrevs-setup ()
174 "Initialize use of the `mailabbrev' package." 173 "Initialize use of the `mailabbrev' package."
175 (if (and (not (vectorp mail-abbrevs)) 174 (if (and (not (vectorp mail-abbrevs))
624 (provide 'mailabbrev) 623 (provide 'mailabbrev)
625 624
626 (if mail-abbrevs-mode 625 (if mail-abbrevs-mode
627 (mail-abbrevs-enable)) 626 (mail-abbrevs-enable))
628 627
629 ;;; arch-tag: 5aa2d901-73f8-4ad7-b73c-4802282ad2ff
630 ;;; mailabbrev.el ends here 628 ;;; mailabbrev.el ends here