Mercurial > emacs
comparison lisp/mh-e/mh-alias.el @ 62847:aa8c2e12ee24
Upgraded to MH-E version 7.84.
See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Sat, 28 May 2005 22:04:54 +0000 |
| parents | 4f4f410e6fe8 |
| children | 18a818a2ee7c 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62846:93362151dd3a | 62847:aa8c2e12ee24 |
|---|---|
| 1 ;;; mh-alias.el --- MH-E mail alias completion and expansion | 1 ;;; mh-alias.el --- MH-E mail alias completion and expansion |
| 2 ;; | 2 ;; |
| 3 ;; Copyright (C) 2005 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1994, 1995, 1996, 1997, |
| 4 ;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc. | |
| 4 | 5 |
| 5 ;; Author: Peter S. Galbraith <psg@debian.org> | 6 ;; Author: Peter S. Galbraith <psg@debian.org> |
| 6 ;; Maintainer: Bill Wohler <wohler@newt.com> | 7 ;; Maintainer: Bill Wohler <wohler@newt.com> |
| 7 ;; Keywords: mail | 8 ;; Keywords: mail |
| 8 ;; See: mh-e.el | 9 ;; See: mh-e.el |
| 160 (shell-command-on-region (point-min) (point-max) mh-alias-local-users t) | 161 (shell-command-on-region (point-min) (point-max) mh-alias-local-users t) |
| 161 (goto-char (point-min)))) | 162 (goto-char (point-min)))) |
| 162 (while (< (point) (point-max)) | 163 (while (< (point) (point-max)) |
| 163 (cond | 164 (cond |
| 164 ((looking-at "\\([^:]*\\):[^:]*:\\([^:]*\\):[^:]*:\\([^:]*\\):") | 165 ((looking-at "\\([^:]*\\):[^:]*:\\([^:]*\\):[^:]*:\\([^:]*\\):") |
| 165 (when (> (string-to-int (match-string 2)) 200) | 166 (when (> (string-to-number (match-string 2)) 200) |
| 166 (let* ((username (match-string 1)) | 167 (let* ((username (match-string 1)) |
| 167 (gecos-name (match-string 3)) | 168 (gecos-name (match-string 3)) |
| 168 (realname (mh-alias-gecos-name | 169 (realname (mh-alias-gecos-name |
| 169 gecos-name username | 170 gecos-name username |
| 170 mh-alias-passwd-gecos-comma-separator-flag)) | 171 mh-alias-passwd-gecos-comma-separator-flag)) |
| 171 (alias-name (if mh-alias-local-users-prefix | 172 (alias-name (if mh-alias-local-users-prefix |
| 172 (concat mh-alias-local-users-prefix | 173 (concat mh-alias-local-users-prefix |
| 173 (mh-alias-suggest-alias realname t)) | 174 (mh-alias-suggest-alias realname t)) |
| 174 username)) | 175 username)) |
| 175 (alias-translation | 176 (alias-translation |
| 176 (if (string-equal username realname) | 177 (if (string-equal username realname) |
| 177 (concat "<" username ">") | 178 (concat "<" username ">") |
| 178 (concat realname " <" username ">")))) | 179 (concat realname " <" username ">")))) |
| 179 (when (not (mh-assoc-ignore-case alias-name mh-alias-alist)) | 180 (when (not (mh-assoc-ignore-case alias-name mh-alias-alist)) |