changeset 573:f0ffd1764382

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Thu, 12 Mar 1992 03:48:12 +0000
parents 0c2e4ee42304
children 58047bf5d46c
files lisp/mail/sendmail.el src/eval.c src/indent.c
diffstat 3 files changed, 24 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Mar 10 22:16:10 1992 +0000
+++ b/lisp/mail/sendmail.el	Thu Mar 12 03:48:12 1992 +0000
@@ -1,5 +1,5 @@
 ;; Mail sending commands for Emacs.
-;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -173,6 +173,7 @@
   (define-key mail-mode-map "\C-c?" 'describe-mode)
   (define-key mail-mode-map "\C-c\C-f\C-t" 'mail-to)
   (define-key mail-mode-map "\C-c\C-f\C-b" 'mail-bcc)
+  (define-key mail-mode-map "\C-c\C-f\C-f" 'mail-fcc)
   (define-key mail-mode-map "\C-c\C-f\C-c" 'mail-cc)
   (define-key mail-mode-map "\C-c\C-f\C-s" 'mail-subject)
   (define-key mail-mode-map "\C-c\C-t" 'mail-text)
@@ -436,11 +437,19 @@
       (progn (mail-position-on-field "to")
 	     (insert "\nBCC: "))))
 
+(defun mail-fcc ()
+  "Add a new FCC field, with file name completion."
+  (interactive)
+  (expand-abbrev)
+  (or (mail-position-on-field "fcc" t)	;Put new field after exiting FCC.
+      (mail-position-on-field "to"))
+  (insert "\nFCC: " (read-file-name "Folder carbon copy: ")))
+
 (defun mail-position-on-field (field &optional soft)
   (let (end
 	(case-fold-search t))
     (goto-char (point-min))
-    (search-forward (concat "\n" mail-header-separator "\n"))
+    (search-forward (concat "^" mail-header-separator "\n"))
     (setq end (match-beginning 0))
     (goto-char (point-min))
     (if (re-search-forward (concat "^" (regexp-quote field) ":") end t)
--- a/src/eval.c	Tue Mar 10 22:16:10 1992 +0000
+++ b/src/eval.c	Thu Mar 12 03:48:12 1992 +0000
@@ -1,5 +1,5 @@
 /* Evaluator for GNU Emacs Lisp interpreter.
-   Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -1837,7 +1837,11 @@
 	  goto done;
 
 	default:
-	  error ("funcall: this number of args not handled.");
+
+	  /* If a subr takes more than 6 arguments without using MANY
+	     or UNEVALLED, we need to extend this function to support it. 
+	     Until this is done, there is no way to call the function.  */
+	  abort ();
 	}
     }
   if (XTYPE (fun) == Lisp_Compiled)
--- a/src/indent.c	Tue Mar 10 22:16:10 1992 +0000
+++ b/src/indent.c	Thu Mar 12 03:48:12 1992 +0000
@@ -1,5 +1,5 @@
 /* Indentation functions.
-   Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -344,10 +344,13 @@
      and scan through it again.  */
   if (!NILP (force) && col > goal && c == '\t' && prev_col < goal)
     {
+      int old_point;
+
       del_range (point - 1, point);
-      Findent_to (make_number (col - 1));
-      insert_char (' ');
-      goto retry;
+      Findent_to (make_number (goal), Qnil);
+      old_point = point;
+      Findent_to (make_number (col), Qnil);
+      SET_PT (old_point);
     }
 
   /* If line ends prematurely, add space to the end.  */