Function: rmail-generate-viewer-buffer

rmail-generate-viewer-buffer is a byte-compiled function defined in rmail.el.gz.

Signature

(rmail-generate-viewer-buffer)

Documentation

Return a reusable buffer suitable for viewing messages.

Create the buffer if necessary.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
(defun rmail-generate-viewer-buffer ()
  "Return a reusable buffer suitable for viewing messages.
Create the buffer if necessary."
  ;; We want to reuse any existing view buffer, so as not to create an
  ;; endless number of them.  But we must avoid clashes if we visit
  ;; two different rmail files with the same basename (Bug#4593).
  (if (and (local-variable-p 'rmail-view-buffer)
	   (buffer-live-p rmail-view-buffer))
      rmail-view-buffer
    (let ((newbuf
	   (generate-new-buffer
	    (format " *message-viewer %s*"
		    (file-name-nondirectory
		     (or buffer-file-name (buffer-name)))))))
      (with-current-buffer newbuf
	(add-hook 'kill-buffer-hook #'rmail-view-buffer-kill-buffer-hook nil t))
      newbuf)))