comparison lisp/mail/mh-comp.el @ 38414:67b464da13ec

Some fixes to follow coding conventions.

38413:a26d9b55abb6

;;; mh-comp --- mh-e functions for composing messages
;; Time-stamp: <95/08/19 17:48:59 gildea>

;; Copyright (C) 1993,1995,1997,2000  Free Software Foundation, Inc.

;; Maintainer: Bill Wohler <[e-mail]>
;; Keywords: mail
;; Bug-reports: include `M-x mh-version' output in any correspondence

;; This file is part of mh-e, part of GNU Emacs.

;; GNU Emacs 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.

;; Internal support for mh-e package.

;;; Change Log:

;; $Id: mh-comp.el,v 1.20 2000/11/02 12:37:38 gerd Exp $

;;; Code:

(provide 'mh-comp)
(require 'mh-utils)

  (cond ((and initial-contents
	      (or (zerop (buffer-size))
		  (if (y-or-n-p
			(format "A draft exists.  Use for %s? " use))
		      (if mh-error-if-no-draft
			  (error "A prior draft exists."))
		    t)))
	 (erase-buffer)
	 (insert-file-contents initial-contents)
	 (if delete-contents-file (delete-file initial-contents))))
  (auto-save-mode 1)

\\[mh-mhn-compose-forw] (forward message)." t)

(autoload 'mh-revert-mhn-edit "mh-mime"
  "Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file.
Optional non-nil argument means don't ask for confirmation." t)

38414:67b464da13ec

;;; mh-comp.el --- mh-e functions for composing messages
;; Time-stamp: <2001-07-15 09:36:30 pavel>

;; Copyright (C) 1993,1995,1997,2000  Free Software Foundation, Inc.

;; Maintainer: Bill Wohler <[e-mail]>
;; Keywords: mail
;; Bug-reports: include `M-x mh-version' output in any correspondence

;; This file is part of GNU Emacs.

;; GNU Emacs 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.

;; Internal support for mh-e package.

;;; Change Log:

;; $Id: mh-comp.el,v 1.21 2001/02/08 00:01:35 fx Exp $

;;; Code:

(provide 'mh-comp)
(require 'mh-utils)

  (cond ((and initial-contents
	      (or (zerop (buffer-size))
		  (if (y-or-n-p
			(format "A draft exists.  Use for %s? " use))
		      (if mh-error-if-no-draft
			  (error "A prior draft exists"))
		    t)))
	 (erase-buffer)
	 (insert-file-contents initial-contents)
	 (if delete-contents-file (delete-file initial-contents))))
  (auto-save-mode 1)

\\[mh-mhn-compose-forw] (forward message)." t)

(autoload 'mh-revert-mhn-edit "mh-mime"
  "Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file.
Optional non-nil argument means don't ask for confirmation." t)

;;; mh-comp.el ends here