1;;; mh-buffers.el --- MH-E buffer constants and utilities 2 3;; Copyright (C) 1993, 1995, 1997, 4;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 5 6;; Author: Bill Wohler <wohler@newt.com> 7;; Maintainer: Bill Wohler <wohler@newt.com> 8;; Keywords: mail 9;; See: mh-e.el 10 11;; This file is part of GNU Emacs. 12 13;; GNU Emacs is free software; you can redistribute it and/or modify 14;; it under the terms of the GNU General Public License as published by 15;; the Free Software Foundation; either version 2, or (at your option) 16;; any later version. 17 18;; GNU Emacs is distributed in the hope that it will be useful, 19;; but WITHOUT ANY WARRANTY; without even the implied warranty of 20;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21;; GNU General Public License for more details. 22 23;; You should have received a copy of the GNU General Public License 24;; along with GNU Emacs; see the file COPYING. If not, write to the 25;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 26;; Boston, MA 02110-1301, USA. 27 28;;; Commentary: 29 30;;; Change Log: 31 32;;; Code: 33 34;; The names of ephemeral buffers have a " *mh-" prefix (so that they 35;; are hidden and can be programmatically removed in mh-quit), and the 36;; variable names have the form mh-temp-.*-buffer. 37(defconst mh-temp-buffer " *mh-temp*") ;scratch 38(defconst mh-temp-checksum-buffer " *mh-checksum*") 39(defconst mh-temp-fetch-buffer " *mh-fetch*") ;wget/curl/fetch output 40(defconst mh-temp-index-buffer " *mh-index*") 41 42;; The names of MH-E buffers that are not ephemeral and can be used by 43;; the user (and deleted by the user when no longer needed) have a 44;; "*MH-E " prefix (so they can be programmatically removed in 45;; mh-quit), and the variable names have the form mh-.*-buffer. 46;; Temporary buffers for search results 47(defconst mh-aliases-buffer "*MH-E Aliases*") ;alias lookups 48(defconst mh-folders-buffer "*MH-E Folders*") ;folder list 49(defconst mh-help-buffer "*MH-E Help*") ;quick help 50(defconst mh-info-buffer "*MH-E Info*") ;version information buffer 51(defconst mh-log-buffer "*MH-E Log*") ;output of MH commands and so on 52(defconst mh-mail-delivery-buffer "*MH-E Mail Delivery*") ;mail delivery log 53(defconst mh-recipients-buffer "*MH-E Recipients*") ;killed when draft sent 54(defconst mh-sequences-buffer "*MH-E Sequences*") ;sequences list 55 56(defvar mh-log-buffer-lines 100 57 "Number of lines to keep in `mh-log-buffer'.") 58 59 60 61(defun mh-truncate-log-buffer () 62 "If `mh-log-buffer' is too big then truncate it. 63If the number of lines in `mh-log-buffer' exceeds 64`mh-log-buffer-lines' then keep only the last 65`mh-log-buffer-lines'. As a side effect the point is set to the 66end of the log buffer. 67 68The function returns the size of the final size of the log buffer." 69 (with-current-buffer (get-buffer-create mh-log-buffer) 70 (goto-char (point-max)) 71 (save-excursion 72 (when (equal (forward-line (- mh-log-buffer-lines)) 0) 73 (delete-region (point-min) (point)))) 74 (unless (or (bobp) 75 (save-excursion 76 (and (equal (forward-line -1) 0) (equal (char-after) ?)))) 77 (insert "\n\n")) 78 (buffer-size))) 79 80(provide 'mh-buffers) 81 82;; Local Variables: 83;; indent-tabs-mode: nil 84;; sentence-end-double-space: nil 85;; End: 86 87;; arch-tag: 812e9f29-78b8-4e73-ada9-aa61dc1ceecb 88;;; mh-buffers.el ends here 89