;;; mh-alias.el --- MH-E mail alias completion and expansion
;; Copyright (C) 1994, 1995, 1996, 1997,
-;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;; Free Software Foundation, Inc.
;; Author: Peter S. Galbraith <psg@debian.org>
;; Maintainer: Bill Wohler <wohler@newt.com>
"Alist of aliases extracted from passwd file and their expansions.")
(defvar mh-alias-tstamp nil
"Time aliases were last loaded.")
-(defvar mh-alias-read-address-map nil)
-(unless mh-alias-read-address-map
- (setq mh-alias-read-address-map
- (copy-keymap minibuffer-local-completion-map))
- (define-key mh-alias-read-address-map
- "," 'mh-alias-minibuffer-confirm-address)
- (define-key mh-alias-read-address-map " " 'self-insert-command))
+(defvar mh-alias-read-address-map
+ (let ((map (copy-keymap minibuffer-local-completion-map)))
+ (define-key map "," 'mh-alias-minibuffer-confirm-address)
+ (define-key map " " 'self-insert-command)
+ map))
(defvar mh-alias-system-aliases
'("/etc/nmh/MailAliases" "/etc/mh/MailAliases"