;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:16:00 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/mh-e/mh-buffers.el
;;; in Emacs version 24.0.50.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.

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


(byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\210\320B\321\322!\210\323B\324\325!\210\326B\327\330!\210\331B\332\333!\210\334B\335\336!\210\337B\340\341!\210\342B\343\344!\207" [current-load-list mh-temp-buffer (lambda (#1=#:defconst-tmp-var) (defconst mh-temp-buffer #1#)) " *mh-temp*" mh-temp-checksum-buffer (lambda (#2=#:defconst-tmp-var) (defconst mh-temp-checksum-buffer #2#)) " *mh-checksum*" mh-temp-fetch-buffer (lambda (#3=#:defconst-tmp-var) (defconst mh-temp-fetch-buffer #3#)) " *mh-fetch*" mh-temp-index-buffer (lambda (#4=#:defconst-tmp-var) (defconst mh-temp-index-buffer #4#)) " *mh-index*" mh-aliases-buffer (lambda (#5=#:defconst-tmp-var) (defconst mh-aliases-buffer #5#)) "*MH-E Aliases*" mh-folders-buffer (lambda (#6=#:defconst-tmp-var) (defconst mh-folders-buffer #6#)) "*MH-E Folders*" mh-help-buffer (lambda (#7=#:defconst-tmp-var) (defconst mh-help-buffer #7#)) "*MH-E Help*" mh-info-buffer (lambda (#8=#:defconst-tmp-var) (defconst mh-info-buffer #8#)) "*MH-E Info*" mh-log-buffer (lambda (#9=#:defconst-tmp-var) (defconst mh-log-buffer #9#)) "*MH-E Log*" mh-mail-delivery-buffer (lambda (#10=#:defconst-tmp-var) (defconst mh-mail-delivery-buffer #10#)) "*MH-E Mail Delivery*" mh-recipients-buffer (lambda (#11=#:defconst-tmp-var) (defconst mh-recipients-buffer #11#)) "*MH-E Recipients*" mh-sequences-buffer (lambda (#12=#:defconst-tmp-var) (defconst mh-sequences-buffer #12#)) "*MH-E Sequences*"] 2)
#@45 Number of lines to keep in `mh-log-buffer'.
(defvar mh-log-buffer-lines 100 (#$ . 2055))
#@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 (#$ . 2151)])
(provide 'mh-buffers)
