1 |
;;; mh-comp.el --- mh-e functions for composing messages |
;;; mh-comp.el --- mh-e functions for composing messages |
2 |
;; Time-stamp: <2001-07-15 09:36:30 pavel> |
;; Time-stamp: <2001-12-20 18:55:07 pavel> |
3 |
|
|
4 |
;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc. |
;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc. |
5 |
|
|
540 |
(defun mh-read-draft (use initial-contents delete-contents-file) |
(defun mh-read-draft (use initial-contents delete-contents-file) |
541 |
;; Read draft file into a draft buffer and make that buffer the current one. |
;; Read draft file into a draft buffer and make that buffer the current one. |
542 |
;; USE is a message used for prompting about the intended use of the message. |
;; USE is a message used for prompting about the intended use of the message. |
543 |
;; 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 |
544 |
;; if buffer should not be modified. Delete the initial-contents file if |
;; if buffer should not be modified. Delete the initial-contents file if |
545 |
;; DELETE-CONTENTS-FILE flag is set. |
;; DELETE-CONTENTS-FILE flag is set. |
546 |
;; Returns the draft folder's name. |
;; Returns the draft folder's name. |
651 |
(defun mh-goto-header-field (field) |
(defun mh-goto-header-field (field) |
652 |
;; Move to FIELD in the message header. |
;; Move to FIELD in the message header. |
653 |
;; Move to the end of the FIELD name, which should end in a colon. |
;; Move to the end of the FIELD name, which should end in a colon. |
654 |
;; Returns T if found, NIL if not. |
;; Returns t if found, nil if not. |
655 |
(goto-char (point-min)) |
(goto-char (point-min)) |
656 |
(let ((case-fold-search t) |
(let ((case-fold-search t) |
657 |
(headers-end (save-excursion |
(headers-end (save-excursion |