[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-speed.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-speed.el [emacs-unicode-2] |
Date: |
Fri, 16 Jul 2004 23:13:12 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-speed.el [emacs-unicode-2],
Miles Bader <=