← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mew-beta/intrepid

« back to all changes in this revision

Viewing changes to mew-search.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2007-08-18 19:09:07 UTC
  • mfrom: (1.1.9 upstream)
  • Revision ID: james.westby@ubuntu.com-20070818190907-t4ygobhu4fml2wj2
Tags: 5.2.51~0.20070817-1
New upstream release. (CVS trunk on 2007-08-17)

Show diffs side-by-side

added added

removed removed

Lines of Context:
mew-search.el
639
639
      (message "\"%s\" does not exist" mew-prog-est-update)
640
640
    (message "Hyper Estraier indexing for %s..." folder)
641
641
    (let* ((path (file-truename (mew-expand-folder folder)))
642
 
           (pro (start-process "*Mew EST*" nil mew-prog-est-update path)))
 
642
           (pro (start-process "*Mew EST*" nil mew-prog-est-update "-s" mew-suffix path)))
643
643
      (set-process-filter pro 'mew-est-index-filter)
644
644
      (set-process-sentinel pro 'mew-est-index-sentinel))))
645
645
 
649
649
  (if (not (mew-which-exec mew-prog-est-update))
650
650
      (message "'%s' does not exist" mew-prog-est-update)
651
651
    (message "Hyper Estraier indexing...")
652
 
    (let ((pro (start-process "*Mew EST*" nil mew-prog-est-update)))
 
652
    (let ((pro (start-process "*Mew EST*" nil mew-prog-est-update "-s" mew-suffix)))
653
653
      (set-process-filter pro 'mew-est-index-filter)
654
654
      (set-process-sentinel pro 'mew-est-index-sentinel))))
655
655
 
656
656
(defun mew-est-index-filter (process string)
657
 
  (cond
658
 
   ((string-match "exists" string)
659
 
    (message "Another Hyper Estraier indexer is running"))
660
 
   ((string-match "\.\.\.failed" string)
661
 
    (message "Hyper Estraier indexing ...failed"))
662
 
   ((string-match "old messages\.\.\.done" string)
663
 
    (message "Hyper Estraier purging ...done"))
664
 
   ((string-match "new messages\.\.\.done" string)
665
 
    (message "Hyper Estraier indexing ...done"))))
 
657
  (save-excursion
 
658
    (cond
 
659
     ((string-match "exists" string)
 
660
      (message "Another Hyper Estraier indexer is running"))
 
661
     ((string-match "\.\.\.failed" string)
 
662
      (message "Hyper Estraier indexing ...failed"))
 
663
     ((string-match "old messages\.\.\.done" string)
 
664
      (message "Hyper Estraier purging ...done"))
 
665
     ((string-match "new messages\.\.\.done" string)
 
666
      (message "Hyper Estraier indexing ...done")))))
666
667
 
667
668
(defun mew-est-index-sentinel (process event)
668
 
  )
 
669
  (save-excursion ))
669
670
 
670
671
(provide 'mew-search)
671
672