From a7d9e6b4951949e336100462c16f9022238abcd3 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 7 Mar 1997 13:52:44 +0000 Subject: [PATCH] (mime-edit-again-ignored-field-regexp): New variable. --- mime-edit.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index f383e9e..7a9c28d 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.68 $ +;; Version: $Revision: 0.69 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -122,7 +122,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.68 1997-03-07 13:41:46 morioka Exp $") + "$Id: mime-edit.el,v 0.69 1997-03-07 13:52:44 morioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -2401,6 +2401,12 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" ;;; @ edit again ;;; +(defvar mime-edit-again-ignored-field-regexp + (concat "^\\(" "Content-.*\\|Mime-Version" + (if mime-edit-insert-x-emacs-field "\\|X-Emacs") + "\\):") + "Regexp for deleted header fields when `mime-edit-again' is called.") + (defun mime-editor::edit-again (code-conversion) (save-excursion (goto-char (point-min)) @@ -2555,8 +2561,7 @@ converted to MIME-Edit tags." (save-restriction (std11-narrow-to-header) (goto-char (point-min)) - (while (re-search-forward - "^\\(Content-.*\\|Mime-Version\\):" nil t) + (while (re-search-forward mime-edit-again-ignored-field-regexp nil t) (delete-region (match-beginning 0) (1+ (std11-field-end))) )) (or no-separator -- 1.7.10.4