Mercurial > emacs
comparison lisp/mail/mailalias.el @ 62402:a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 16 May 2005 11:33:47 +0000 |
| parents | 0b933f58d514 |
| children | 564274a2eaa2 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62401:4512c4db6912 | 62402:a7e02ef1e3d6 |
|---|---|
| 447 ;; The second \(...\) matches the user id. | 447 ;; The second \(...\) matches the user id. |
| 448 (if (looking-at "\\+?\\([^:@\n+]+\\):[^:\n]*:\\([^\n:]*\\):") | 448 (if (looking-at "\\+?\\([^:@\n+]+\\):[^:\n]*:\\([^\n:]*\\):") |
| 449 (add-to-list 'mail-local-names | 449 (add-to-list 'mail-local-names |
| 450 (cons (match-string 1) | 450 (cons (match-string 1) |
| 451 (user-full-name | 451 (user-full-name |
| 452 (string-to-int (match-string 2)))))) | 452 (string-to-number (match-string 2)))))) |
| 453 (beginning-of-line 2)) | 453 (beginning-of-line 2)) |
| 454 (kill-buffer (current-buffer)))) | 454 (kill-buffer (current-buffer)))) |
| 455 (if (or (eq mail-names t) | 455 (if (or (eq mail-names t) |
| 456 (eq mail-directory-names t)) | 456 (eq mail-directory-names t)) |
| 457 (let (directory) | 457 (let (directory) |