diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/feedmail.el | 2 | ||||
| -rw-r--r-- | lisp/mail/mailalias.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmailsum.el | 24 | ||||
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
5 files changed, 16 insertions, 16 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 3d1b1951421..7c7265ac8c9 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -1835,7 +1835,7 @@ the counts." (setq blobbet (file-name-nondirectory blobby)) (if (string-match "^[0-9][0-9][0-9]-" blobbet) (let ((water-mark)) - (setq water-mark (string-to-int (substring blobbet 0 3))) + (setq water-mark (string-to-number (substring blobbet 0 3))) (if (> water-mark high-water) (setq high-water water-mark)))) (setq q-cnt (1+ q-cnt))) (t (setq q-oth (1+ q-oth))) diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index b520841db3d..88f166707c3 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -449,7 +449,7 @@ PATTERN is the string we want to complete." (add-to-list 'mail-local-names (cons (match-string 1) (user-full-name - (string-to-int (match-string 2)))))) + (string-to-number (match-string 2)))))) (beginning-of-line 2)) (kill-buffer (current-buffer)))) (if (or (eq mail-names t) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 8ba9408a76f..c68bb80d80f 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1990,7 +1990,7 @@ is non-nil if the user has supplied the password interactively. header-end t) (let ((beg (point)) (eol (progn (end-of-line) (point)))) - (string-to-int (buffer-substring beg eol))))))) + (string-to-number (buffer-substring beg eol))))))) (and size (if (and (natnump size) (<= (+ header-end size) (point-max)) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index a49b47453d8..f551239907d 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -375,17 +375,17 @@ Setting this variable has an effect only before reading a mail." (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" (save-excursion (end-of-line) (point)) t) (format "%2d-%3s" - (string-to-int (buffer-substring - (match-beginning 2) - (match-end 2))) + (string-to-number (buffer-substring + (match-beginning 2) + (match-end 2))) (buffer-substring (match-beginning 4) (match-end 4)))) ((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)" (save-excursion (end-of-line) (point)) t) (format "%2d-%3s" - (string-to-int (buffer-substring - (match-beginning 4) - (match-end 4))) + (string-to-number (buffer-substring + (match-beginning 4) + (match-end 4))) (buffer-substring (match-beginning 2) (match-end 2)))) ((re-search-forward "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)" @@ -580,7 +580,7 @@ If N is negative, go backwards." ;; Advance thru summary. (forward-line (if forward 1 -1)) ;; Get msg number of this line. - (setq i (string-to-int + (setq i (string-to-number (buffer-substring (point) (min (point-max) (+ 6 (point)))))) ;; See if that msg has desired subject. @@ -791,10 +791,10 @@ Search, the `unseen' attribute is restored.") (forward-line -1)) (beginning-of-line) (skip-chars-forward " ") - (let ((msg-num (string-to-int (buffer-substring - (point) - (progn (skip-chars-forward "0-9") - (point)))))) + (let ((msg-num (string-to-number (buffer-substring + (point) + (progn (skip-chars-forward "0-9") + (point)))))) ;; Always leave `unseen' removed ;; if we get out of isearch mode. ;; Don't let a subsequent isearch restore that `unseen'. @@ -1061,7 +1061,7 @@ If SKIP-RMAIL, don't do anything to the Rmail buffer." (buf rmail-buffer) (cur (point)) message-not-found - (curmsg (string-to-int + (curmsg (string-to-number (buffer-substring (point) (min (point-max) (+ 6 (point)))))) (total (save-excursion (set-buffer buf) rmail-total-messages))) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 605af6cdbe7..3cf17f8968d 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -822,7 +822,7 @@ This is relative to `smtpmail-queue-dir'.") nil (setq response-continue nil) (setq return-value - (cons (string-to-int + (cons (string-to-number (buffer-substring begin end)) (nreverse response-strings))))) |