[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-alias.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-alias.el
diff -c emacs/lisp/mh-e/mh-alias.el:1.9 emacs/lisp/mh-e/mh-alias.el:1.10
*** emacs/lisp/mh-e/mh-alias.el:1.9     Wed May 18 11:01:20 2005
--- emacs/lisp/mh-e/mh-alias.el Sat May 28 22:04:54 2005
***************
*** 1,6 ****
  ;;; mh-alias.el --- MH-E mail alias completion and expansion
  ;;
! ;; Copyright (C) 2005 Free Software Foundation, Inc.
  
  ;; Author: Peter S. Galbraith <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
--- 1,7 ----
  ;;; mh-alias.el --- MH-E mail alias completion and expansion
  ;;
! ;; Copyright (C) 1994, 1995, 1996, 1997,
! ;;  2001, 2002, 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Peter S. Galbraith <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 162,177 ****
        (while  (< (point) (point-max))
          (cond
           ((looking-at "\\([^:]*\\):[^:]*:\\([^:]*\\):[^:]*:\\([^:]*\\):")
!           (when (> (string-to-int (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))
                     (alias-translation
                      (if (string-equal username realname)
                          (concat "<" username ">")
--- 163,178 ----
        (while  (< (point) (point-max))
          (cond
           ((looking-at "\\([^:]*\\):[^:]*:\\([^:]*\\):[^:]*:\\([^:]*\\):")
!           (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))
                     (alias-translation
                      (if (string-equal username realname)
                          (concat "<" username ">")