Mercurial > emacs
comparison lisp/mh-e/mh-comp.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 |
comparison
equal
deleted
inserted
replaced
68211:3299c642df41 | 68212:0c77c0b9a620 |
---|---|
520 (save-excursion | 520 (save-excursion |
521 (if buffer | 521 (if buffer |
522 (set-buffer buffer)) | 522 (set-buffer buffer)) |
523 (cond ((eq major-mode 'mh-show-mode) | 523 (cond ((eq major-mode 'mh-show-mode) |
524 (let ((number-start (mh-search-from-end ?/ buffer-file-name))) | 524 (let ((number-start (mh-search-from-end ?/ buffer-file-name))) |
525 (car (read-from-string (substring buffer-file-name | 525 (string-to-number (substring buffer-file-name |
526 (1+ number-start)))))) | 526 (1+ number-start))))) |
527 ((and (eq major-mode 'mh-folder-mode) | 527 ((and (eq major-mode 'mh-folder-mode) |
528 mh-show-buffer | 528 mh-show-buffer |
529 (get-buffer mh-show-buffer)) | 529 (get-buffer mh-show-buffer)) |
530 (mh-show-buffer-message-number mh-show-buffer)) | 530 (mh-show-buffer-message-number mh-show-buffer)) |
531 ((and (eq major-mode 'mh-letter-mode) | 531 ((and (eq major-mode 'mh-letter-mode) |