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.