Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!math.lsa.umich.edu!emv
From: mdb@ESD.3Com.COM (Mark D. Baushke)
Newsgroups: alt.sources
Subject: mh-folder-list.el -- Hierarchical folders in MH [comp.mail.mh]
Message-ID: <10307@stag.math.lsa.umich.edu>
Date: 11 Dec 89 19:47:52 GMT
References: <MDB.89Dec10232421@kosciusko.ESD.3Com.COM>
Sender: news@math.lsa.umich.edu
Reply-To: mdb@ESD.3Com.COM (Mark D. Baushke)
Followup-To: comp.mail.mh
Lines: 55

Archive-name: mh-folder-list.el
Original-posting-by: mdb@ESD.3Com.COM (Mark D. Baushke)
Original-subject:  Hierarchical folders in MH
Reposted-by: emv@math.lsa.umich.edu (Edward Vielmetti)

[This is an experimental alt.sources re-posting from the newsgroup(s)
comp.mail.mh. Comments on this service to emv@math.lsa.umich.edu 
(Edward Vielmetti).]


On 10 Dec 89 22:28:55 GMT, jw@sics.se (Johan Widen) said:

Johan> One thing that keeps bothering me, but which I have never got
Johan> around to fix (8-(), is that completion in the emacs mh-rmail
Johan> package does not work on subfolders. When I try to open a
Johan> subfolder for the first time, name completion does not work.
Johan> When I do it a second time however, emacs will now about the
Johan> subfolder, but not about any other as yet unopened subfolders.

Johan> Johan Widen
Johan> SICS, PO Box 1263, S-164 28 KISTA, SWEDEN	Internet: jw@sics.se
Johan> Tel: +46 8 752 15 32	Ttx: 812 61 54 SICS S	Fax: +46 8 751 72 30

The following may be of interest to you. I hacked it up for my own
use.

I would suggest that you save the value of the mh-folder-list as it
may take some time generate. Only do the my-mh-make-big-folder-list
when you need the list updated.

(defun my-mh-make-big-folder-list ()
  "Return a list of the user's folders.
Result is in a form suitable for completing read."
  (interactive)
  (message "Collecting folder names...")
  (save-window-excursion
    (mh-exec-cmd-quiet " *mh-temp*" "folders" "-fast" "-recurse")
    (goto-char (point-min))
    (let ((list nil))
      (while (not (eobp))
	(let ((start (point))
	      (count 0))
	  (search-forward "\n" nil t)
	  (let ((folder (buffer-substring start (- (point) 1))))
	    (mh-push (list (format "+%s" folder)) list))))
      (message "Collecting folder names...done")
      list)))

(setq mh-folder-list (my-mh-make-big-folder-list))

Enjoy!
-- 
Mark D. Baushke
Internet:   mdb@ESD.3Com.COM
UUCP:	    {3comvax,auspex,sun}!bridge2!mdb