From: morioka <morioka>
Date: Tue, 4 Mar 1997 12:34:50 +0000 (+0000)
Subject: Draft preview feature was abolished.
X-Git-Tag: Hokutetsu-Ishikawa-new~193
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=42eeea9e9c2aab63b1492c5fdda7a8133c6c08e6;hp=aea2681b6655bd67f533596989c2e081562c0fa7;p=elisp%2Fsemi.git

Draft preview feature was abolished.
---

diff --git a/mime-edit.el b/mime-edit.el
index 2bda320..56ed41f 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/08/21 renamed from mime.el
 ;;	Renamed: 1997/2/21 from tm-edit.el
-;; Version: $Revision: 0.56 $
+;; Version: $Revision: 0.57 $
 ;; 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.56 1997-03-04 12:26:38 morioka Exp $")
+  "$Id: mime-edit.el,v 0.57 1997-03-04 12:34:50 morioka Exp $")
 
 (defconst mime-edit-version (get-version-string mime-edit-RCS-ID))
 
@@ -525,13 +525,6 @@ If it is not specified for a major-mode,
 	  (concat "Emacs " ver ", MULE " mule-version)
 	ver))))
 
-  
-;;; @@ buffer local variables
-;;;
-
-(defvar mime-edit-mode-old-local-map nil)
-(defvar mime-edit-buffer nil)
-
 
 ;;; @ constants
 ;;;
@@ -689,6 +682,8 @@ Tspecials means any character that matches with it in header must be quoted.")
   )
 ;;; end
 
+(defvar mime-edit-mode-old-local-map nil) ; buffer local variable
+
 
 ;;; @ functions
 ;;;
@@ -2373,6 +2368,8 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 ;;; @ preview message
 ;;;
 
+(defvar mime-edit-buffer nil) ; buffer local variable
+
 (defun mime-edit-preview-message ()
   "preview editing MIME message. [mime-edit.el]"
   (interactive)
@@ -2424,63 +2421,6 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	   )
 
 
-;;; @ draft preview
-;;; 
-;; by "OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;	 Mon, 10 Apr 1995 20:03:07 +0900
-
-(defvar mime-edit-draft-header-separator-alist
-  '((news-reply-mode . mail-header-separator)
-    (mh-letter-mode . mail-header-separator)
-    ))
-
-(defvar mime::article/draft-header-separator nil)
-
-(defun mime-edit-draft-preview ()
-  (interactive)
-  (let ((sep (cdr (assq major-mode mime-edit-draft-header-separator-alist))))
-    (or (stringp sep) (setq sep (eval sep)))
-    (make-variable-buffer-local 'mime::article/draft-header-separator)
-    (goto-char (point-min))
-    (re-search-forward
-     (concat "^\\(" (regexp-quote sep) "\\)?$"))
-    (setq mime::article/draft-header-separator
-	  (buffer-substring (match-beginning 0) (match-end 0)))
-    (replace-match "")
-    (mime-view-mode (current-buffer))
-    (pop-to-buffer (current-buffer))
-    ))
-
-(defun mime-viewer::quitting-method/draft-preview ()
-  (let ((mother mime::preview/mother-buffer))
-    (save-excursion
-      (switch-to-buffer mother)
-      (goto-char (point-min))
-      (if (and
-	   (re-search-forward
-	    (concat "^\\("
-		    (regexp-quote mime::article/draft-header-separator)
-		    "\\)?$") nil t)
-	   (bolp))
-	  (progn
-	    (insert mime::article/draft-header-separator)
-	    (set-buffer-modified-p (buffer-modified-p))
-	    )))
-    (mime-view-kill-buffer)
-    (pop-to-buffer mother)
-    ))
-
-(set-alist 'mime-view-quitting-method-alist
-	   'mh-letter-mode
-	   (function mime-viewer::quitting-method/draft-preview)
-	   )
-
-(set-alist 'mime-view-quitting-method-alist
-	   'news-reply-mode
-	   (function mime-viewer::quitting-method/draft-preview)
-	   )
-
-
 ;;; @ edit again
 ;;;