diff options
| author | Bill Wohler <wohler@newt.com> | 2006-01-16 20:05:14 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-01-16 20:05:14 +0000 |
| commit | 8d2aa2377562f6c8f77e4cfe65a1fb8f1ac78cb6 (patch) | |
| tree | 0213d2740d10426ef55e078abe495daa630e897c /lisp/mh-e/mh-seq.el | |
| parent | 9ac2e4e5236f040aa935860d5816da809bbd19e9 (diff) | |
| download | emacs-8d2aa2377562f6c8f77e4cfe65a1fb8f1ac78cb6.tar.gz emacs-8d2aa2377562f6c8f77e4cfe65a1fb8f1ac78cb6.tar.bz2 emacs-8d2aa2377562f6c8f77e4cfe65a1fb8f1ac78cb6.zip | |
* 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.
Diffstat (limited to 'lisp/mh-e/mh-seq.el')
| -rw-r--r-- | lisp/mh-e/mh-seq.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el index 4f2f7de5916..842289ae635 100644 --- a/lisp/mh-e/mh-seq.el +++ b/lisp/mh-e/mh-seq.el @@ -560,7 +560,7 @@ should be replaced with: (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 @@ The MH command pick is used to do the match." (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 @@ Only information about messages in MSG-LIST are added to the tree." (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)) |