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 <[EMAIL PROTECTED]>
;; Maintainer: Bill Wohler <[EMAIL PROTECTED]>
--- 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 <[EMAIL PROTECTED]>
;; Maintainer: Bill Wohler <[EMAIL PROTECTED]>
***************
*** 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 ">")
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
