Mercurial > emacs
changeset 5586:fdf1d3924296
(rmail-bury): Rename local rmail-buffer to buffer-to-bury.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 14 Jan 1994 18:35:09 +0000 |
| parents | 0c8f4489999d |
| children | fd409e42991a |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Jan 14 18:19:13 1994 +0000 +++ b/lisp/mail/rmail.el Fri Jan 14 18:35:09 1994 +0000 @@ -1248,8 +1248,8 @@ ;; Put at the end of messages-head ;; the entry for message N+1, which marks ;; the end of message N. (N = number of messages). - (search-backward "\n\^_") - (forward-char 1) + (search-backward "\n\^_" nil t) + (if (/= (point) (point-max)) (forward-char 1)) (setq messages-head (list (point-marker))) (rmail-set-message-counters-counter (min (point) point-save)) (setq messages-after-point total-messages) @@ -1982,14 +1982,16 @@ (defun rmail-bury () "Bury current Rmail buffer and its summary buffer." (interactive) - (let ((rmail-buffer (current-buffer))) + ;; This let var was called rmail-buffer, but that interfered + ;; with the buffer-local var used in summary buffers. + (let ((buffer-to-bury (current-buffer))) (if (rmail-summary-exists) (let (window) (while (setq window (get-buffer-window rmail-summary-buffer)) (set-window-buffer window (other-buffer rmail-summary-buffer))) (bury-buffer rmail-summary-buffer))) (switch-to-buffer (other-buffer (current-buffer))) - (bury-buffer rmail-buffer))) + (bury-buffer buffer-to-bury))) (defun rmail-summary-exists () "Non-nil iff in an RMAIL buffer and an associated summary buffer exists.