From 9303c8dbfc7e053933d4982cdbbbdcea589e5a92 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 20 Apr 1995 23:35:49 +0000 Subject: [PATCH] Update some MIME doc strings. (mh-auto-fill-for-letter): Use fill-prefix to do message headers. --- lisp/mail/mh-comp.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/lisp/mail/mh-comp.el b/lisp/mail/mh-comp.el index ca773284fb7..e774d7cd3bf 100644 --- a/lisp/mail/mh-comp.el +++ b/lisp/mail/mh-comp.el @@ -1,5 +1,5 @@ ;;; mh-comp --- mh-e functions for composing messages -;; Time-stamp: <94/12/31 14:07:28 gildea> +;; Time-stamp: <95/04/20 19:16:23 gildea> ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. @@ -25,7 +25,7 @@ ;;; Change Log: -;; $Id: mh-comp.el,v 1.3 1995/04/09 22:31:08 kwzh Exp kwzh $ +;; $Id: mh-comp.el,v 1.4 1995/04/10 00:19:27 kwzh Exp kwzh $ ;;; Code: @@ -595,7 +595,7 @@ See also documentation for `\\[mh-send]' function." (defun mh-goto-header-end (arg) ;; Find the end of the message header in the current buffer and position ;; the cursor at the ARG'th newline after the header. - (if (re-search-forward "^$\\|^-+$" nil nil) + (if (re-search-forward "^-*$" nil nil) (forward-line arg))) @@ -685,11 +685,10 @@ invoked with no args, if those values are non-nil." (defun mh-auto-fill-for-letter () ;; Auto-fill in letters treats the header specially by inserting a tab ;; before continuation line. - (do-auto-fill) (if (mh-in-header-p) - (save-excursion - (beginning-of-line nil) - (insert-char ?\t 1)))) + (let ((fill-prefix "\t")) + (do-auto-fill)) + (do-auto-fill))) (defun mh-in-header-p () @@ -991,24 +990,24 @@ Use \\[kill-buffer] if you don't want to delete the draft message file." ;;; autoloads from mh-mime (autoload 'mh-mhn-compose-insertion "mh-mime" - "Add a directive to insert a message part from a file. + "Add a directive to insert a MIME message part from a file. This is the typical way to insert non-text parts in a message. See also \\[mh-edit-mhn]." t) (autoload 'mh-mhn-compose-anon-ftp "mh-mime" - "Add a directive for an anonymous ftp external body part. + "Add a directive for a MIME anonymous ftp external body part. This directive tells MH to include a reference to a message/external-body part retrievable by anonymous FTP. See also \\[mh-edit-mhn]." t) (autoload 'mh-mhn-compose-external-compressed-tar "mh-mime" - "Add a directive to include a reference to a compressed tar file. + "Add a directive to include a MIME reference to a compressed tar file. The file should be available via anonymous ftp. This directive tells MH to include a reference to a message/external-body part. See also \\[mh-edit-mhn]." t) (autoload 'mh-mhn-compose-forw "mh-mime" - "Add a forw directive to this message. + "Add a forw directive to this message, to forward a message with MIME. This directive tells MH to include another message in this one. See also \\[mh-edit-mhn]." t) -- 2.39.5