HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defconst mh-temp-buffer " *mh-temp*")
(defconst mh-temp-checksum-buffer " *mh-checksum*")
(defconst mh-temp-fetch-buffer " *mh-fetch*")
(defconst mh-temp-index-buffer " *mh-index*")
(defconst mh-aliases-buffer "*MH-E Aliases*")
(defconst mh-folders-buffer "*MH-E Folders*")
(defconst mh-help-buffer "*MH-E Help*")
(defconst mh-info-buffer "*MH-E Info*")
(defconst mh-log-buffer "*MH-E Log*")
(defconst mh-mail-delivery-buffer "*MH-E Mail Delivery*")
(defconst mh-recipients-buffer "*MH-E Recipients*")
(defconst mh-sequences-buffer "*MH-E Sequences*")
#@45 Number of lines to keep in `mh-log-buffer'.
(defvar mh-log-buffer-lines 100 (#$ . 961))
#@300 If `mh-log-buffer' is too big then truncate it.
If the number of lines in `mh-log-buffer' exceeds
`mh-log-buffer-lines' then keep only the last
`mh-log-buffer-lines'. As a side effect the point is set to the
end of the log buffer.

The function returns the size of the final size of the log buffer.
(defalias 'mh-truncate-log-buffer #[nil "r\302!q\210db\210\212	[y\303\232\203e`|\210)o\204.\212\304y\303\232\205'\305f\306\232)\204.\307c\210\310 )\207" [mh-log-buffer mh-log-buffer-lines get-buffer-create 0 -1 nil 12 "\n\f\n" buffer-size] 2 (#$ . 1056)])
(provide 'mh-buffers)