Mercurial > emacs
changeset 3198:18612999f80c
(rmail-new-summary): Set rmail-summary-buffer
to nil at beginning; set it for real after summary is set up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 28 May 1993 04:44:55 +0000 |
| parents | 0d180fefccc6 |
| children | 8788744c0c64 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 28 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Fri May 28 04:35:57 1993 +0000 +++ b/lisp/mail/rmailsum.el Fri May 28 04:44:55 1993 +0000 @@ -129,13 +129,12 @@ (setq was-in-summary t) (set-buffer rmail-buffer))) ;; Find its summary buffer, or make one. - (or (and rmail-summary-buffer - (buffer-name rmail-summary-buffer)) - (setq rmail-summary-buffer - (generate-new-buffer (concat (buffer-name) "-summary")))) - (setq sumbuf rmail-summary-buffer) + (setq sumbuf + (if (and rmail-summary-buffer + (buffer-name rmail-summary-buffer)) + rmail-summary-buffer + (generate-new-buffer (concat (buffer-name) "-summary")))) (setq mesg rmail-current-message) - (setq foo mesg) ;; Filter the messages; make or get their summary lines. (let ((summary-msgs ()) (new-summary-line-count 0)) @@ -153,24 +152,29 @@ summary-msgs))) (setq msgnum (1+ msgnum))) (setq summary-msgs (nreverse summary-msgs))))) - (let ((rbuf (current-buffer)) - (total rmail-total-messages)) - (set-buffer sumbuf) - ;; Set up the summary buffer's contents. - (let ((buffer-read-only nil)) - (erase-buffer) - (while summary-msgs - (princ (cdr (car summary-msgs)) sumbuf) - (setq summary-msgs (cdr summary-msgs))) - (goto-char (point-min))) - ;; Set up the rest of its state and local variables. - (setq buffer-read-only t) - (rmail-summary-mode) - (make-local-variable 'minor-mode-alist) - (setq minor-mode-alist (list ": " description)) - (setq rmail-buffer rbuf - rmail-summary-redo redo-form - rmail-total-messages total)))) + ;; Temporarily, while summary buffer is unfinished, + ;; we "don't have" a summary. + (setq rmail-summary-buffer nil) + (save-excursion + (let ((rbuf (current-buffer)) + (total rmail-total-messages)) + (set-buffer sumbuf) + ;; Set up the summary buffer's contents. + (let ((buffer-read-only nil)) + (erase-buffer) + (while summary-msgs + (princ (cdr (car summary-msgs)) sumbuf) + (setq summary-msgs (cdr summary-msgs))) + (goto-char (point-min))) + ;; Set up the rest of its state and local variables. + (setq buffer-read-only t) + (rmail-summary-mode) + (make-local-variable 'minor-mode-alist) + (setq minor-mode-alist (list ": " description)) + (setq rmail-buffer rbuf + rmail-summary-redo redo-form + rmail-total-messages total)))) + (setq rmail-summary-buffer sumbuf)) ;; Now display the summary buffer and go to the right place in it. (or was-in-summary (pop-to-buffer sumbuf))