← Back to branch summary

~vm/vm/message

« back to all changes in this revision

Viewing changes to lisp/vm-sort.el

  • Committer: udr
  • Date: 2010-12-06 10:23:28 UTC
  • Revision ID: udr@maruti-20101206102328-gdnes1kswv8jc096
Fixed vm-imap-make-session to clean up vm-buffer-types.  Added a debug-trap to vm-sort-compare-thread to catch nil results.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-sort.el
522
522
      (when (eq (car key-funcs) 'vm-sort-compare-thread)
523
523
        (setq result (vm-sort-compare-thread m1 m2))
524
524
        (if (consp result)
525
 
            (setq m1 (car result)
526
 
                  m2 (cdr result)
527
 
                  key-funcs (cdr key-funcs))
 
525
            (progn
 
526
              (setq m1 (car result)
 
527
                    m2 (cdr result)
 
528
                    key-funcs (cdr key-funcs))
 
529
              (if (or (null m1) (null m2))
 
530
                  (progn (if vm-summary-debug (debug))
 
531
                         (throw 'done t))))
528
532
          (throw 'done result)))
529
533
      (while key-funcs
530
534
        (if (eq '= (setq result (funcall (car key-funcs) m1 m2)))