Mercurial > emacs
comparison lisp/mh-e/mh-e.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 | 1052cc7b7d7f |
children | 37d03b3298bf d88caeac70d7 |
comparison
equal
deleted
inserted
replaced
68211:3299c642df41 | 68212:0c77c0b9a620 |
---|---|
1370 (with-temp-buffer | 1370 (with-temp-buffer |
1371 (insert line) | 1371 (insert line) |
1372 (goto-char (point-max)) | 1372 (goto-char (point-max)) |
1373 (let (folder unseen total p) | 1373 (let (folder unseen total p) |
1374 (when (search-backward " out of " (point-min) t) | 1374 (when (search-backward " out of " (point-min) t) |
1375 (setq total (read-from-string | 1375 (setq total (string-to-number |
1376 (buffer-substring-no-properties | 1376 (buffer-substring-no-properties |
1377 (match-end 0) (line-end-position)))) | 1377 (match-end 0) (line-end-position)))) |
1378 (when (search-backward " in sequence " (point-min) t) | 1378 (when (search-backward " in sequence " (point-min) t) |
1379 (setq p (point)) | 1379 (setq p (point)) |
1380 (when (search-backward " has " (point-min) t) | 1380 (when (search-backward " has " (point-min) t) |
1381 (setq unseen (read-from-string (buffer-substring-no-properties | 1381 (setq unseen (string-to-number (buffer-substring-no-properties |
1382 (match-end 0) p))) | 1382 (match-end 0) p))) |
1383 (while (eq (char-after) ? ) | 1383 (while (eq (char-after) ? ) |
1384 (backward-char)) | 1384 (backward-char)) |
1385 (setq folder (buffer-substring-no-properties | 1385 (setq folder (buffer-substring-no-properties |
1386 (point-min) (1+ (point)))) | 1386 (point-min) (1+ (point)))) |
1387 (when (and (equal (aref folder (1- (length folder))) ?+) | 1387 (when (and (equal (aref folder (1- (length folder))) ?+) |
1388 (equal current-folder folder)) | 1388 (equal current-folder folder)) |
1389 (setq folder (substring folder 0 (1- (length folder))))) | 1389 (setq folder (substring folder 0 (1- (length folder))))) |
1390 (values (format "+%s" folder) (car unseen) (car total)))))))) | 1390 (values (format "+%s" folder) unseen total))))))) |
1391 | 1391 |
1392 (defun mh-folder-size-folder (folder) | 1392 (defun mh-folder-size-folder (folder) |
1393 "Find size of FOLDER using \"folder\"." | 1393 "Find size of FOLDER using \"folder\"." |
1394 (with-temp-buffer | 1394 (with-temp-buffer |
1395 (let ((u (length (cdr (assoc mh-unseen-seq | 1395 (let ((u (length (cdr (assoc mh-unseen-seq |
1396 (mh-read-folder-sequences folder nil)))))) | 1396 (mh-read-folder-sequences folder nil)))))) |
1397 (call-process (expand-file-name "folder" mh-progs) nil t nil | 1397 (call-process (expand-file-name "folder" mh-progs) nil t nil |
1398 "-norecurse" folder) | 1398 "-norecurse" folder) |
1399 (goto-char (point-min)) | 1399 (goto-char (point-min)) |
1400 (if (re-search-forward " has \\([0-9]+\\) " nil t) | 1400 (if (re-search-forward " has \\([0-9]+\\) " nil t) |
1401 (values (car (read-from-string (match-string 1))) u folder) | 1401 (values (string-to-number (match-string 1)) u folder) |
1402 (values 0 u folder))))) | 1402 (values 0 u folder))))) |
1403 | 1403 |
1404 (defun mh-folder-size-flist (folder) | 1404 (defun mh-folder-size-flist (folder) |
1405 "Find size of FOLDER using \"flist\"." | 1405 "Find size of FOLDER using \"flist\"." |
1406 (with-temp-buffer | 1406 (with-temp-buffer |