-;;; mh-comp --- mh-e functions for composing messages
-;; Time-stamp: <95/08/19 17:48:59 gildea>
+;;; mh-comp.el --- mh-e functions for composing messages
+;; Time-stamp: <2001-12-20 18:55:07 pavel>
;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc.
;; Keywords: mail
;; Bug-reports: include `M-x mh-version' output in any correspondence
-;; This file is part of mh-e, part of GNU Emacs.
+;; 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
;;; Change Log:
-;; $Id: mh-comp.el,v 1.19 2000/08/16 20:39:14 monnier Exp $
+;; $Id: mh-comp.el,v 1.22 2001/07/15 19:53:53 pj Exp $
;;; Code:
(defcustom mh-compose-letter-function nil
"Invoked when setting up a letter draft.
It is passed three arguments: TO recipients, SUBJECT, and CC recipients."
- :type 'function
+ :type '(choice (const nil) function)
:group 'mh-compose)
(defcustom mh-before-send-letter-hook nil
(defun mh-read-draft (use initial-contents delete-contents-file)
;; Read draft file into a draft buffer and make that buffer the current one.
;; USE is a message used for prompting about the intended use of the message.
- ;; INITIAL-CONTENTS is filename that is read into an empty buffer, or NIL
+ ;; INITIAL-CONTENTS is filename that is read into an empty buffer, or nil
;; if buffer should not be modified. Delete the initial-contents file if
;; DELETE-CONTENTS-FILE flag is set.
;; Returns the draft folder's name.
(if (y-or-n-p
(format "A draft exists. Use for %s? " use))
(if mh-error-if-no-draft
- (error "A prior draft exists."))
+ (error "A prior draft exists"))
t)))
(erase-buffer)
(insert-file-contents initial-contents)
(defun mh-goto-header-field (field)
;; Move to FIELD in the message header.
;; Move to the end of the FIELD name, which should end in a colon.
- ;; Returns T if found, NIL if not.
+ ;; Returns t if found, nil if not.
(goto-char (point-min))
(let ((case-fold-search t)
(headers-end (save-excursion
(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