Mercurial > emacs
diff lisp/mh-e/mh-seq.el @ 102537:6837adfb2772
m-v: use lists to pass things around rather than values.
author | Deepak Goel <deego@gnufans.org> |
---|---|
date | Fri, 13 Mar 2009 20:28:15 +0000 |
parents | 4a9c45f9e914 |
children | 89c22f5e239d |
line wrap: on
line diff
--- a/lisp/mh-e/mh-seq.el Fri Mar 13 20:04:11 2009 +0000 +++ b/lisp/mh-e/mh-seq.el Fri Mar 13 20:28:15 2009 +0000 @@ -746,9 +746,10 @@ "-norecurse" folder "-sequence" (symbol-name mh-unseen-seq)) (goto-char (point-min)) (multiple-value-bind (folder unseen total) - (mh-parse-flist-output-line - (buffer-substring (point) (mh-line-end-position))) - (values total unseen folder)))) + (values-list + (mh-parse-flist-output-line + (buffer-substring (point) (mh-line-end-position)))) + (list total unseen folder)))) (defun mh-folder-size-folder (folder) "Find size of FOLDER using \"folder\"." @@ -759,8 +760,8 @@ "-norecurse" folder) (goto-char (point-min)) (if (re-search-forward " has \\([0-9]+\\) " nil t) - (values (string-to-number (match-string 1)) u folder) - (values 0 u folder))))) + (list (string-to-number (match-string 1)) u folder) + (list 0 u folder))))) ;;;###mh-autoload (defun mh-parse-flist-output-line (line &optional current-folder) @@ -788,7 +789,7 @@ (when (and (equal (aref folder (1- (length folder))) ?+) (equal current-folder folder)) (setq folder (substring folder 0 (1- (length folder))))) - (values (format "+%s" folder) unseen total))))))) + (list (format "+%s" folder) unseen total))))))) ;;;###mh-autoload (defun mh-read-folder-sequences (folder save-refiles)