/[emacs]/emacs/lisp/mail/mh-comp.el
ViewVC logotype

Diff of /emacs/lisp/mail/mh-comp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by pj, Sun Jul 15 19:53:53 2001 UTC revision 1.23 by pj, Thu Dec 20 18:23:05 2001 UTC
# Line 1  Line 1 
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    
# Line 540  See also documentation for `\\[mh-send]' Line 540  See also documentation for `\\[mh-send]'
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.
# Line 651  See also documentation for `\\[mh-send]' Line 651  See also documentation for `\\[mh-send]'
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

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26