[Emacs-commit] emacs/lisp/mh-e mh-speed.el mh-customize.el Cha...

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    05/12/14 18:47:39

Modified files:
        lisp/mh-e      : mh-speed.el mh-customize.el ChangeLog 

Log message:
        * mh-customize.el (mh-speed-flists-interval): Rename to
        mh-speed-update-interval.
        (mh-speed-run-flists-flag): Delete. Setting mh-speed-flists-interval
        to 0 accomplishes the same thing.
        
        * mh-speed.el (mh-folder-speedbar-buttons, mh-speed-flists): Use
        mh-speed-update-interval instead of mh-speed-run-flists-flag.
        (mh-speed-toggle, mh-speed-view, mh-speed-refresh): Sync docstrings
        with manual.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-speed.el.diff?tr1=1.11&tr2=1.12&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-customize.el.diff?tr1=1.42&tr2=1.43&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.74&tr2=1.75&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.74 emacs/lisp/mh-e/ChangeLog:1.75
--- emacs/lisp/mh-e/ChangeLog:1.74      Sat Dec 10 01:41:43 2005
+++ emacs/lisp/mh-e/ChangeLog   Wed Dec 14 18:47:38 2005
@@ -1,3 +1,15 @@
+2005-12-14  Bill Wohler  <address@hidden>
+
+       * mh-customize.el (mh-speed-flists-interval): Rename to
+       mh-speed-update-interval.
+       (mh-speed-run-flists-flag): Delete. Setting
+       mh-speed-flists-interval to 0 accomplishes the same thing.
+
+       * mh-speed.el (mh-folder-speedbar-buttons, mh-speed-flists): Use
+       mh-speed-update-interval instead of mh-speed-run-flists-flag.
+       (mh-speed-toggle, mh-speed-view, mh-speed-refresh): Sync
+       docstrings with manual.
+
 2005-12-09  Bill Wohler  <address@hidden>
 
        * mh-customize.el (mh-path): Move here from mh-init.el.
Index: emacs/lisp/mh-e/mh-customize.el
diff -u emacs/lisp/mh-e/mh-customize.el:1.42 
emacs/lisp/mh-e/mh-customize.el:1.43
--- emacs/lisp/mh-e/mh-customize.el:1.42        Sat Dec 10 01:41:43 2005
+++ emacs/lisp/mh-e/mh-customize.el     Wed Dec 14 18:47:38 2005
@@ -1780,21 +1780,12 @@
 
 ;;; The Speedbar (:group 'mh-speed)
 
-(defcustom mh-speed-flists-interval 60
-  "Time between calls to flists in seconds.
-If 0, flists is not called repeatedly."
+(defcustom mh-speed-update-interval 60
+  "Time between speedbar updates in seconds.
+Set to 0 to disable automatic update."
   :type 'integer
   :group 'mh-speed)
 
-(defcustom mh-speed-run-flists-flag t
-  "Non-nil means flists is used.
-If non-nil, flists is executed every `mh-speed-flists-interval' seconds to
-update the display of the number of unseen and total messages in each folder.
-If resources are limited, this can be set to nil and the speedbar display can
-be updated manually with the \\[mh-speed-flists] command."
-  :type 'boolean
-  :group 'mh-speed)
-
 
 
 ;;; Threading (:group 'mh-thread)
Index: emacs/lisp/mh-e/mh-speed.el
diff -u emacs/lisp/mh-e/mh-speed.el:1.11 emacs/lisp/mh-e/mh-speed.el:1.12
--- emacs/lisp/mh-e/mh-speed.el:1.11    Mon Jul  4 17:15:52 2005
+++ emacs/lisp/mh-e/mh-speed.el Wed Dec 14 18:47:38 2005
@@ -76,7 +76,7 @@
      (line-beginning-position) (1+ (line-beginning-position))
      `(mh-folder nil mh-expanded nil mh-children-p t mh-level 0))
     (mh-speed-stealth-update t)
-    (when mh-speed-run-flists-flag
+    (when (> mh-speed-update-interval 0)
       (mh-speed-flists nil))))
 
 ;;;###mh-autoload
@@ -292,8 +292,8 @@
 
 ;;;###mh-autoload
 (defun mh-speed-toggle (&rest args)
-  "Toggle the display of child folders.
-The otional ARGS are ignored and there for compatibilty with speedbar."
+  "Toggle the display of child folders in the speedbar.
+The optional ARGS from speedbar are ignored."
   (interactive)
   (declare (ignore args))
   (beginning-of-line)
@@ -335,8 +335,8 @@
 
 ;;;###mh-autoload
 (defun mh-speed-view (&rest args)
-  "View folder on current line.
-Optional ARGS are ignored."
+  "Visits the selected folder just as if you had used 
\\<mh-folder-mode-map>\\[mh-visit-folder].
+The optional ARGS from speedbar are ignored."
   (interactive)
   (declare (ignore args))
   (let* ((folder (get-text-property (line-beginning-position) 'mh-folder))
@@ -381,7 +381,9 @@
   (unless mh-speed-flists-timer
     (setq mh-speed-flists-timer
           (run-at-time
-           nil (and mh-speed-run-flists-flag mh-speed-flists-interval)
+           nil (if (> mh-speed-update-interval 0)
+                   mh-speed-update-interval
+                 nil)
            (lambda ()
              (unless (and (processp mh-speed-flists-process)
                           (not (eq (process-status mh-speed-flists-process)
@@ -502,9 +504,10 @@
         (clrhash mh-sub-folders-cache)))))
 
 (defun mh-speed-refresh ()
-  "Refresh the speedbar.
-Use this function to refresh the speedbar if folders have been added or
-deleted or message ranges have been updated outside of MH-E."
+  "Regenerates the list of folders in the speedbar.
+
+Run this command if you've added or deleted a folder, or want to update the
+unseen message count before the next automatic update."
   (interactive)
   (mh-speed-flists t)
   (mh-speed-invalidate-map ""))