Function: Mh-Summ-to

Mh-Summ-to is a byte-compiled function defined in hmh.el.

Signature

(Mh-Summ-to)

Documentation

Set current buffer to a mail listing buffer.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hmh.el
(defun Mh-Summ-to ()
  "Set current buffer to a mail listing buffer."
  (let ((summ-buf))
    (save-excursion
      (mapc (lambda (window)
	      (if summ-buf
		  nil
		(set-buffer (window-buffer window))
		(if (eq major-mode 'Mh-folder-mode)
		    (setq summ-buf (current-buffer)))))
	    (hypb:window-list 'no-mini)))
    (if summ-buf (set-buffer summ-buf))))