diff lisp/mh-e/mh-thread.el @ 102537:6837adfb2772

m-v: use lists to pass things around rather than values.

--- a/lisp/mh-e/mh-thread.el	Fri Mar 13 20:04:11 2009 +0000
+++ b/lisp/mh-e/mh-thread.el	Fri Mar 13 20:28:15 2009 +0000
@@ -493,8 +493,8 @@
       (setq subject-pruned-flag t)
       (setq subject (substring subject 0 (match-beginning 0))))
     ;; Canonicalize subject only if it is non-empty
-    (cond ((equal subject "") (values subject subject-pruned-flag))
-          (t (values
+    (cond ((equal subject "") (list subject subject-pruned-flag))
+          (t (list
               (or (gethash subject mh-thread-subject-hash)
                   (setf (gethash subject mh-thread-subject-hash) subject))
               subject-pruned-flag)))))
@@ -618,7 +618,7 @@
                 (return-from process-message))
               (unless (integerp index) (return)) ;Error message here
               (multiple-value-setq (subject subject-re-p)
-                (mh-thread-prune-subject subject))
+                (values-list (mh-thread-prune-subject subject)))
               (setq in-reply-to (mh-thread-process-in-reply-to in-reply-to))
               (setq refs (loop for x in (append (split-string refs) in-reply-to)
                                when (string-match mh-message-id-regexp x)