🚀 go-pugleaf

In GNU Emacs 19.25.93.3 (rs6000-ibm-aix3.2.5) of Wed Aug 10 1994 on marc.watson.ibm.com

the slowness of rmail when a large summary is in force is caused by
the re-search for the line in the summary with the correct message
number in rmail-summary-goto-msg.

I have written a binary search to speed the up.  The patch follows.

I have tested it in the obvious ways.


Marc Auslander   <marc@watson.ibm.com>   914 784-6699  (Tieline 863 Fax x6306)

*** lisp/rmailsum.el	Mon Aug  1 22:26:07 1994
--- rmailsum.el	Wed Aug 10 14:12:17 1994
***************
*** 768,773 ****
--- 768,791 ----
  
  (defvar rmail-summary-overlay nil)

+ (defun rmail-summary-find-msg (n)
+   (let ((start (point-min)) (diff (/(- (point-max) (point-min)) 2)) found)
+     (while (> diff 1000)
+       (setq start (+ start diff))
+       (goto-char start)
+       (beginning-of-line)
+       (skip-chars-forward " ")
+       (if (> (string-to-int (buffer-substring
+ 				     (point)
+ 				     (progn (skip-chars-forward "0-9")
+ 					    (point))))
+ 	     n)
+ 	  (setq start (- start diff)))
+       (setq diff (/ diff 2)))
+     (goto-char start)
+     (beginning-of-line)
+     (re-search-forward (concat "^ *" (int-to-string n)) nil t)))
+
  (defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
    (interactive "P")
    (if (consp n) (setq n (prefix-numeric-value n)))
***************
*** 793,799 ****
  		 (goto-char (point-max))
  		 (rmail-summary-goto-msg)))
        (goto-char (point-min))
!       (if (not (re-search-forward (concat "^ *" (int-to-string n)) nil t))
  	  (progn (or nowarn (message "Message %d not found" n))
  		 (setq n curmsg)
  		 (setq message-not-found t)
--- 811,817 ----
  		 (goto-char (point-max))
  		 (rmail-summary-goto-msg)))
        (goto-char (point-min))
!       (if (not (rmail-summary-find-msg n))
  	  (progn (or nowarn (message "Message %d not found" n))
  		 (setq n curmsg)
  		 (setq message-not-found t)