[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/mh-comp.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/mh-comp.el |
Date: |
Thu, 20 Dec 2001 13:23:06 -0500 |
Index: emacs/lisp/mail/mh-comp.el
diff -c emacs/lisp/mail/mh-comp.el:1.22 emacs/lisp/mail/mh-comp.el:1.23
*** emacs/lisp/mail/mh-comp.el:1.22 Sun Jul 15 15:53:53 2001
--- emacs/lisp/mail/mh-comp.el Thu Dec 20 13:23:05 2001
***************
*** 1,5 ****
;;; 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.
--- 1,5 ----
;;; 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.
***************
*** 30,36 ****
;;; Change Log:
! ;; $Id: mh-comp.el,v 1.22 2001/07/15 19:53:53 pj Exp $
;;; Code:
--- 30,36 ----
;;; Change Log:
! ;; $Id: mh-comp.el,v 1.23 2001/12/20 18:23:05 pj Exp $
;;; Code:
***************
*** 540,546 ****
(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
;; if buffer should not be modified. Delete the initial-contents file if
;; DELETE-CONTENTS-FILE flag is set.
;; Returns the draft folder's name.
--- 540,546 ----
(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
;; if buffer should not be modified. Delete the initial-contents file if
;; DELETE-CONTENTS-FILE flag is set.
;; Returns the draft folder's name.
***************
*** 651,657 ****
(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.
(goto-char (point-min))
(let ((case-fold-search t)
(headers-end (save-excursion
--- 651,657 ----
(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.
(goto-char (point-min))
(let ((case-fold-search t)
(headers-end (save-excursion
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/mh-comp.el,
Pavel Janík <=