procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-what-message): Unbreak it.

Browse source
This commit is contained in:
Glenn Morris 2009-02-05 06:40:01 +00:00
parent c261086e81
commit 6b6a84a15b
2 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2009-02-05 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-what-message): Unbreak it.
* net/mairix.el (rmail-buffer): Remove unneeded eval-when-compile.
(rmail-narrow-to-non-pruned-header): Remove autoload.
(mairix-rmail-fetch-field): Handle mbox Rmail.
2009-02-04 Dave Love <fx@gnu.org>
* net/imap.el (imap-fetch-safe): Bind debug-on-error.

15
lisp/mail/rmail.el
View file

@ -2894,14 +2894,17 @@ or forward if N is negative."
(defun rmail-what-message ()
"For debugging Rmail: find the message number that point is in."
(let ((where (point))
(low 1)
(high rmail-total-messages)
(mid (/ rmail-total-messages 2)))
(let* ((high rmail-total-messages)
(mid (/ high 2))
(low 1)
(where (with-current-buffer (if (rmail-buffers-swapped-p)
rmail-view-buffer
(current-buffer))
(point))))
(while (> (- high low) 1)
(if (>= where (rmail-msgbeg mid))
(setq low mid)
(setq high mid))
(setq low mid)
(setq high mid))
(setq mid (+ low (/ (- high low) 2))))
(if (>= where (rmail-msgbeg high)) high low)))