diff options
| -rw-r--r-- | lisp/mail/mailalias.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index e9890c9e72..ba884e75ab 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -334,10 +334,14 @@ Consults `/etc/passwd' and a directory service if one is set up via (insert-file-contents "/etc/passwd" nil nil nil t) (setq mail-local-names) (while (not (eobp)) - (setq mail-local-names - `((,(buffer-substring (point) - (1- (search-forward ":")))) - ,@mail-local-names)) + ;;Recognize lines like + ;; nobody:*:65534:65534::/: + ;; +demo::::::/bin/csh + ;; +ethanb + ;;while skipping + ;; +@SOFTWARE + (if (looking-at "\\+?\\([^:@\n+]+\\)") + (add-to-list 'mail-local-names (list (match-string 1)))) (beginning-of-line 2)) (kill-buffer (current-buffer)))) (if (or (eq mail-names t) |