diff options
| author | Deepak Goel <deego@gnufans.org> | 2009-03-13 20:28:15 +0000 |
|---|---|---|
| committer | Deepak Goel <deego@gnufans.org> | 2009-03-13 20:28:15 +0000 |
| commit | 7c730dd6e1f4a7bd904aee53d295d8352b48b328 (patch) | |
| tree | 1b87623f342ac4b515471672450569f2989c2d9c /lisp/mh-e/mh-thread.el | |
| parent | 4537363ca5f2b030f14549ba25608d367ce7d2f1 (diff) | |
| download | emacs-7c730dd6e1f4a7bd904aee53d295d8352b48b328.tar.gz | |
m-v: use lists to pass things around rather than values.
Diffstat (limited to 'lisp/mh-e/mh-thread.el')
| -rw-r--r-- | lisp/mh-e/mh-thread.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-thread.el b/lisp/mh-e/mh-thread.el index 4a691511d73..1a9ad8f6558 100644 --- a/lisp/mh-e/mh-thread.el +++ b/lisp/mh-e/mh-thread.el @@ -493,8 +493,8 @@ not put into a single thread." (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 @@ Only information about messages in MSG-LIST are added to the tree." (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) |