~reddyuday/vm/refactor-vm-fn

« back to all changes in this revision

Viewing changes to lisp/vm-folder.el

  • Committer: Uday S Reddy
  • Date: 2012-02-05 23:55:53 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20120205235553-6i806hnpyzvdfu3l
Refactored the top level vm function a little, and and changed it to do as little initial processing as possible when called to visit the underlying folders of virtual folders.  (Bug 924016)

Show diffs side-by-side

added added

removed removed

Lines of Context:
1399
1399
;; Commentary here:
1400
1400
;; http://www.eyrich-net.org/mozilla/X-Mozilla-Status.html?en
1401
1401
 
 
1402
(defun vm-thunderbird-folder-p (folder-path-name)
 
1403
  (file-exists-p (concat folder-path-name ".msf")))
 
1404
 
1402
1405
(defun vm-read-thunderbird-status (message)
1403
1406
  (let (status)
1404
1407
    (setq status (vm-get-header-contents message "X-Mozilla-Status:"))