[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-speed.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/mh-e/mh-speed.el
diff -c emacs/lisp/mh-e/mh-speed.el:1.3.4.1 emacs/lisp/mh-e/mh-speed.el:1.3.4.2
*** emacs/lisp/mh-e/mh-speed.el:1.3.4.1 Fri Apr 16 12:50:32 2004
--- emacs/lisp/mh-e/mh-speed.el Sat Jul 17 02:46:43 2004
***************
*** 1,6 ****
  ;;; mh-speed.el --- Speedbar interface for MH-E.
  
! ;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
  
  ;; Author: Satyaki Das <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
--- 1,6 ----
  ;;; mh-speed.el --- Speedbar interface for MH-E.
  
! ;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Satyaki Das <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 34,40 ****
  ;;; Code:
  
  ;; Requires
! (require 'cl)
  (require 'mh-e)
  (require 'speedbar)
  
--- 34,41 ----
  ;;; Code:
  
  ;; Requires
! (require 'mh-utils)
! (mh-require-cl)
  (require 'mh-e)
  (require 'speedbar)
  
***************
*** 340,346 ****
    (interactive)
    (declare (ignore args))
    (let* ((folder (get-text-property (line-beginning-position) 'mh-folder))
!          (range (and (stringp folder) (mh-read-msg-range folder))))
      (when (stringp folder)
        (speedbar-with-attached-buffer
         (mh-visit-folder folder range)
--- 341,349 ----
    (interactive)
    (declare (ignore args))
    (let* ((folder (get-text-property (line-beginning-position) 'mh-folder))
!          (range (and (stringp folder)
!                      (mh-read-range "Scan" folder t nil nil
!                                     mh-interpret-number-as-range-flag))))
      (when (stringp folder)
        (speedbar-with-attached-buffer
         (mh-visit-folder folder range)
***************
*** 350,358 ****
  (defvar mh-speed-flists-folder nil)
  
  ;;;###mh-autoload
! (defun mh-speed-flists (force &optional folder)
    "Execute flists -recurse and update message counts.
! If FORCE is non-nil the timer is reset. If FOLDER is non-nil then flists is 
run
  only for that one folder."
    (interactive (list t))
    (when force
--- 353,363 ----
  (defvar mh-speed-flists-folder nil)
  
  ;;;###mh-autoload
! (defun mh-speed-flists (force &rest folders)
    "Execute flists -recurse and update message counts.
! If FORCE is non-nil the timer is reset.
! 
! Any number of optional FOLDERS can be specified. If specified, flists is run
  only for that one folder."
    (interactive (list t))
    (when force
***************
*** 365,371 ****
        (kill-process mh-speed-flists-process)
        (setq mh-speed-partial-line "")
        (setq mh-speed-flists-process nil)))
!   (setq mh-speed-flists-folder folder)
    (unless mh-speed-flists-timer
      (setq mh-speed-flists-timer
            (run-at-time
--- 370,376 ----
        (kill-process mh-speed-flists-process)
        (setq mh-speed-partial-line "")
        (setq mh-speed-flists-process nil)))
!   (setq mh-speed-flists-folder folders)
    (unless mh-speed-flists-timer
      (setq mh-speed-flists-timer
            (run-at-time
***************
*** 376,392 ****
                                     'exit)))
                 (setq mh-speed-current-folder
                       (concat
!                       (with-temp-buffer
!                         (call-process (expand-file-name "folder" mh-progs)
!                                       nil '(t nil) nil "-fast")
!                         (buffer-substring (point-min) (1- (point-max))))
                        "+"))
                 (setq mh-speed-flists-process
!                      (start-process "*flists*" nil
!                                     (expand-file-name "flists" mh-progs)
!                                     (or mh-speed-flists-folder "-recurse")
!                                     (if mh-speed-flists-folder "-noall" 
"-all")
!                                     "-sequence" (symbol-name mh-unseen-seq)))
                 ;; Run flists on all folders the next time around...
                 (setq mh-speed-flists-folder nil)
                 (set-process-filter mh-speed-flists-process
--- 381,399 ----
                                     'exit)))
                 (setq mh-speed-current-folder
                       (concat
!                       (if mh-speed-flists-folder
!                           (substring (car (reverse mh-speed-flists-folder)) 1)
!                         (with-temp-buffer
!                           (call-process (expand-file-name "folder" mh-progs)
!                                         nil '(t nil) nil "-fast")
!                           (buffer-substring (point-min) (1- (point-max)))))
                        "+"))
                 (setq mh-speed-flists-process
!                      (apply #'start-process "*flists*" nil
!                             (expand-file-name "flists" mh-progs)
!                             (if mh-speed-flists-folder "-noall" "-all")
!                             "-sequence" (symbol-name mh-unseen-seq)
!                             (or mh-speed-flists-folder '("-recurse"))))
                 ;; Run flists on all folders the next time around...
                 (setq mh-speed-flists-folder nil)
                 (set-process-filter mh-speed-flists-process