Mercurial > emacs
comparison lisp/mail/rmail.el @ 101408:ffa1ec11b74f
(rmail-generate-viewer-buffer): Fix typo.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 23 Jan 2009 15:10:16 +0000 |
| parents | 6505850d379f |
| children | d59cc7925a91 |
comparison
equal
deleted
inserted
replaced
| 101407:ea0eb554de8c | 101408:ffa1ec11b74f |
|---|---|
| 1277 "Return a reusable buffer suitable for viewing messages. | 1277 "Return a reusable buffer suitable for viewing messages. |
| 1278 Create the buffer if necessary." | 1278 Create the buffer if necessary." |
| 1279 (let* ((suffix (file-name-nondirectory (or buffer-file-name (buffer-name)))) | 1279 (let* ((suffix (file-name-nondirectory (or buffer-file-name (buffer-name)))) |
| 1280 (name (format " *message-viewer %s*" suffix)) | 1280 (name (format " *message-viewer %s*" suffix)) |
| 1281 (buf (get-buffer name))) | 1281 (buf (get-buffer name))) |
| 1282 (unless buf | 1282 (or buf |
| 1283 (generate-new-buffer name)))) | 1283 (generate-new-buffer name)))) |
| 1284 | 1284 |
| 1285 (defun rmail-change-major-mode-hook () | 1285 (defun rmail-change-major-mode-hook () |
| 1286 ;; Bring the actual Rmail messages back into the main buffer. | 1286 ;; Bring the actual Rmail messages back into the main buffer. |
| 1287 (when (rmail-buffers-swapped-p) | 1287 (when (rmail-buffers-swapped-p) |
| 1288 (setq rmail-buffer-swapped nil) | 1288 (setq rmail-buffer-swapped nil) |