Updates to internals.texi -------------------- ChangeLog entries follow: -------------------- man/ChangeLog addition: 2010-03-04 Ben Wing <ben@xemacs.org> * internals/internals.texi (Top): * internals/internals.texi (list-to-texinfo): Removed. * internals/internals.texi (convert-list-to-texinfo): New. * internals/internals.texi (table-to-texinfo): Removed. * internals/internals.texi (convert-table-to-texinfo): New. Update Lisp functions at top to newest versions. * internals/internals.texi (A History of Emacs): * internals/internals.texi (Through Version 18): * internals/internals.texi (Lucid Emacs): * internals/internals.texi (XEmacs): * internals/internals.texi (The XEmacs Split): * internals/internals.texi (Modules for Other Aspects of the Lisp Interpreter and Object System): * internals/internals.texi (Introduction to Writing C Code): * internals/internals.texi (Writing Good Comments): * internals/internals.texi (Writing Macros): * internals/internals.texi (Major Textual Changes): * internals/internals.texi (Great Integral Type Renaming): * internals/internals.texi (How to Regression-Test): * internals/internals.texi (Creating a Branch): * internals/internals.texi (Dynamic Arrays): * internals/internals.texi (Allocation by Blocks): * internals/internals.texi (mark_object): * internals/internals.texi (gc_sweep): * internals/internals.texi (Byte-Char Position Conversion): * internals/internals.texi (Searching and Matching): * internals/internals.texi (Introduction to Multilingual Issues #3): * internals/internals.texi (Byte Types): * internals/internals.texi (Different Ways of Seeing Internal Text): * internals/internals.texi (Buffer Positions): * internals/internals.texi (Basic internal-format APIs): * internals/internals.texi (The DFC API): * internals/internals.texi (General Guidelines for Writing Mule-Aware Code): * internals/internals.texi (Mule-izing Code): * internals/internals.texi (Locales): * internals/internals.texi (More about code pages): * internals/internals.texi (More about locales): * internals/internals.texi (Unicode support under Windows): * internals/internals.texi (The Frame): * internals/internals.texi (The Non-Client Area): * internals/internals.texi (The Client Area): * internals/internals.texi (The Paned Area): * internals/internals.texi (Text Areas): * internals/internals.texi (The Displayable Area): * internals/internals.texi (Event Queues): * internals/internals.texi (Event Stream Callback Routines): * internals/internals.texi (Focus Handling): * internals/internals.texi (Future Work -- Autodetection): Replace " with ``, '' (not complete, maybe about halfway through).

;;; movemail.el --- move mail spool to a place where XEmacs can munge it

;; Copyright (C) 1985-1986, 1990, 1992-1997 Free Software Foundation, Inc.
;; Copyright (c) 1993, 1994 Sun Microsystems, Inc.
;; Copyright (C) 1995 Board of Trustees, University of Illinois

;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de>
;; Maintainer: XEmacs Development Team
;; Keywords: internal, dumped

;; This file is part of XEmacs.

;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; XEmacs is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with XEmacs; see the file COPYING.  If not, write to the 
;; Free Software Foundation, 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Synched up with: Not in FSF.

;;; Commentary:

;; This file is dumped with XEmacs.

;; This file handles calling movemail with the right locking command
;; line options.

;;; Code:

(defvar mail-lock-method
  (let ((stuff (getenv "EMACSLOCKMETHOD")))
    (if stuff
	(intern stuff)
      configure-mail-lock-method))
  "mail spool locking method used by this instance of XEmacs.
This must be one of the symbols in MAIL-LOCK-METHODS.")

(defun move-mail-spool (from to &optional buffer pop-password)
  "Move mail spool in file FROM to file TO.
BUFFER is a buffer for error messages.
POP-PASSWORD is a password for POP mailbox access."
  (apply 'call-process
	 (expand-file-name "movemail" exec-directory)
	 nil buffer nil
	 "-m"
	 (symbol-name mail-lock-method)
	 from to
	 (and pop-password
	      (list pop-password))))

;;; movemail.el ends here