Mercurial > emacs
diff lisp/mh-e/mh-seq.el @ 68212:0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
(read-from-string string) with (string-to-number string).
* mh-e.el (mh-parse-flist-output-line, mh-folder-size-folder): Ditto.
* mh-mime.el (mh-mml-forward-message): Ditto.
* mh-search.el (mh-swish-next-result, mh-mairix-next-result)
(mh-namazu-next-result, mh-grep-next-result, mh-md5sum-parser)
(mh-openssl-parser, mh-index-update-maps): Ditto.
* mh-seq.el (mh-translate-range, mh-narrow-to-header-field)
(mh-thread-generate): Ditto.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Mon, 16 Jan 2006 20:05:14 +0000 |
| parents | 5012e59a73c7 |
| children | 37d03b3298bf d88caeac70d7 |
line wrap: on
line diff
--- a/lisp/mh-e/mh-seq.el Mon Jan 16 19:42:53 2006 +0000 +++ b/lisp/mh-e/mh-seq.el Mon Jan 16 20:05:14 2006 +0000 @@ -560,7 +560,7 @@ (set-buffer mh-temp-buffer) (goto-char (point-min)) (while (re-search-forward "/\\([0-9]*\\)$" nil t) - (push (car (read-from-string (match-string 1))) result)) + (push (string-to-number (match-string 1)) result)) (nreverse result))))) (defun mh-seq-names (seq-list) @@ -928,9 +928,10 @@ (append original (list "-list") pick-expr)) (goto-char (point-min)) (while (not (eobp)) - (let ((num (read-from-string - (buffer-substring (point) (line-end-position))))) - (when (numberp (car num)) (push (car num) msg-list)) + (let ((num (ignore-errors + (string-to-number + (buffer-substring (point) (line-end-position)))))) + (when num (push num msg-list)) (forward-line)))) (if (null msg-list) (message "No matches") @@ -1350,7 +1351,7 @@ (let* ((index-line (prog1 (buffer-substring (point) (line-end-position)) (forward-line))) - (index (car (read-from-string index-line))) + (index (string-to-number index-line)) (id (prog1 (buffer-substring (point) (line-end-position)) (forward-line))) (refs (prog1 (buffer-substring (point) (line-end-position))