diff options
| author | Bill Wohler <wohler@newt.com> | 2005-05-28 22:04:54 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2005-05-28 22:04:54 +0000 |
| commit | e495eaec9cfa70e8a392e822dad178bd86f7f9cc (patch) | |
| tree | 5ca85c795be15c332c2b947d5579469ed6554e9f /lisp/mh-e/mh-alias.el | |
| parent | b5352ff5ec4f313dc5e4035041fbae2d21029281 (diff) | |
| download | emacs-e495eaec9cfa70e8a392e822dad178bd86f7f9cc.tar.gz | |
Upgraded to MH-E version 7.84.
See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
Diffstat (limited to 'lisp/mh-e/mh-alias.el')
| -rw-r--r-- | lisp/mh-e/mh-alias.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el index 7f2cd2f5266..0819c0a7925 100644 --- a/lisp/mh-e/mh-alias.el +++ b/lisp/mh-e/mh-alias.el @@ -1,6 +1,7 @@ ;;; mh-alias.el --- MH-E mail alias completion and expansion ;; -;; Copyright (C) 2005 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, +;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Peter S. Galbraith <psg@debian.org> ;; Maintainer: Bill Wohler <wohler@newt.com> @@ -162,16 +163,16 @@ Exclude all aliases already in `mh-alias-alist' from `ali'" (while (< (point) (point-max)) (cond ((looking-at "\\([^:]*\\):[^:]*:\\([^:]*\\):[^:]*:\\([^:]*\\):") - (when (> (string-to-int (match-string 2)) 200) + (when (> (string-to-number (match-string 2)) 200) (let* ((username (match-string 1)) (gecos-name (match-string 3)) (realname (mh-alias-gecos-name gecos-name username mh-alias-passwd-gecos-comma-separator-flag)) (alias-name (if mh-alias-local-users-prefix - (concat mh-alias-local-users-prefix - (mh-alias-suggest-alias realname t)) - username)) + (concat mh-alias-local-users-prefix + (mh-alias-suggest-alias realname t)) + username)) (alias-translation (if (string-equal username realname) (concat "<" username ">") |