Function: mh-index-group-by-folder

mh-index-group-by-folder is an autoloaded and byte-compiled function defined in mh-search.el.gz.

Signature

(mh-index-group-by-folder)

Documentation

Partition the messages based on source folder.

Returns an alist with the folder names in the car and the cdr being the list of messages originally from that folder.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-search.el.gz
;;; Folder Utilities

;;;###mh-autoload
(defun mh-index-group-by-folder ()
  "Partition the messages based on source folder.
Returns an alist with the folder names in the car and the cdr
being the list of messages originally from that folder."
  (save-excursion
    (goto-char (point-min))
    (let ((result-table (make-hash-table :test #'equal)))
      (cl-loop for msg being the hash-keys of mh-index-msg-checksum-map
               do (push msg (gethash (car (gethash
                                           (gethash msg
                                                    mh-index-msg-checksum-map)
                                           mh-index-checksum-origin-map))
                                     result-table)))
      (cl-loop for x being the hash-keys of result-table
               collect (cons x (nreverse (gethash x result-table)))))))