Mercurial > emacs
comparison lisp/mh-e/mh-mime.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 | 3299c642df41 |
children | 37d03b3298bf d88caeac70d7 |
comparison
equal
deleted
inserted
replaced
68211:3299c642df41 | 68212:0c77c0b9a620 |
---|---|
541 | 541 |
542 The function will prompt the user for a DESCRIPTION, a FOLDER and | 542 The function will prompt the user for a DESCRIPTION, a FOLDER and |
543 MESSAGE number." | 543 MESSAGE number." |
544 (let ((msg (if (and (equal message "") (numberp mh-sent-from-msg)) | 544 (let ((msg (if (and (equal message "") (numberp mh-sent-from-msg)) |
545 mh-sent-from-msg | 545 mh-sent-from-msg |
546 (car (read-from-string message))))) | 546 (string-to-number message)))) |
547 (cond ((integerp msg) | 547 (cond ((integerp msg) |
548 (if (string= "" description) | 548 (if (string= "" description) |
549 ;; Rationale: mml-attach-file constructs a malformed composition | 549 ;; Rationale: mml-attach-file constructs a malformed composition |
550 ;; if the description string is empty. This fixes SF #625168. | 550 ;; if the description string is empty. This fixes SF #625168. |
551 (mml-attach-file (format "%s%s/%d" | 551 (mml-attach-file (format "%s%s/%d" |