From e5f31a8700bf32fdf83d9dab580ed2b9e2be03f1 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 7 Mar 1997 14:06:53 +0000 Subject: [PATCH] (mime-edit-decode-buffer): Renamed from `mime-editor::edit-again'; optional argument `code-conversion' was changed to `not-decode-text' (behavior was reversed). (mime-edit-again): modified for `mime-edit-decode-buffer'. --- mime-edit.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 7a9c28d..02d7cd9 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.69 $ +;; Version: $Revision: 0.70 $ ;; 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.69 1997-03-07 13:52:44 morioka Exp $") + "$Id: mime-edit.el,v 0.70 1997-03-07 14:06:53 morioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -2407,7 +2407,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" "\\):") "Regexp for deleted header fields when `mime-edit-again' is called.") -(defun mime-editor::edit-again (code-conversion) +(defun mime-edit-decode-buffer (not-decode-text) (save-excursion (goto-char (point-min)) (let ((ctl (mime/Content-Type))) @@ -2456,7 +2456,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" ) (save-restriction (narrow-to-region beg end) - (mime-editor::edit-again code-conversion) + (mime-edit-decode-buffer not-decode-text) (goto-char (point-max)) )))) )) @@ -2515,7 +2515,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" (setq encoded t encoding nil) ))))))) - (if (or code-conversion encoded) + (if (or encoded (not not-decode-text)) (decode-mime-charset-region (point-min)(point-max) (or charset default-mime-charset)) @@ -2539,10 +2539,10 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" (concat type "/" stype pstr) encoding)) )) )))) - (if code-conversion + (or not-decode-text (decode-mime-charset-region (point-min) (point-max) default-mime-charset) - ) + ) )))) (defun mime-edit-again (&optional not-decode-text no-separator not-turn-on) @@ -2556,7 +2556,7 @@ converted to MIME-Edit tags." nil t) (replace-match "\n\n") ) - (mime-editor::edit-again (not not-decode-text)) + (mime-edit-decode-buffer not-decode-text) (goto-char (point-min)) (save-restriction (std11-narrow-to-header) -- 1.7.10.4