Mercurial > emacs

diff lisp/mh-e/mh-comp.el @ 68212:0c77c0b9a620

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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-comp.el	Mon Jan 16 19:42:53 2006 +0000
+++ b/lisp/mh-e/mh-comp.el	Mon Jan 16 20:05:14 2006 +0000
@@ -522,8 +522,8 @@
         (set-buffer buffer))
     (cond ((eq major-mode 'mh-show-mode)
            (let ((number-start (mh-search-from-end ?/ buffer-file-name)))
-             (car (read-from-string (substring buffer-file-name
-                                               (1+ number-start))))))
+             (string-to-number (substring buffer-file-name
+                                          (1+ number-start)))))
           ((and (eq major-mode 'mh-folder-mode)
                 mh-show-buffer
                 (get-buffer mh-show-buffer))