mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(rmail-bury): Rename local rmail-buffer to buffer-to-bury.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-01-14 18:35:09 +00:00
parent b2ecc630a3
commit cf805d5d1d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/mail/rmail.el
View File

@ -1248,8 +1248,8 @@ change the invisible header text."
;; 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 @@ the body of the original message."
(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.