From: morioka <morioka>
Date: Thu, 27 Mar 1997 21:48:32 +0000 (+0000)
Subject: (mime-edit-content-end): Abolish unused local variable `beg'.
X-Git-Tag: Hokutetsu-Ishikawa-new~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c98dca7e224e1bfe80d1d78d2a333729819f89a3;p=elisp%2Fsemi.git

(mime-edit-content-end): Abolish unused local variable `beg'.
---

diff --git a/mime-edit.el b/mime-edit.el
index fa17d26..fe29147 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.76 $
+;; Version: $Revision: 0.77 $
 ;; 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.76 1997-03-21 17:55:10 morioka Exp $")
+  "$Id: mime-edit.el,v 0.77 1997-03-27 21:48:32 morioka Exp $")
 
 (defconst mime-edit-version (get-version-string mime-edit-RCS-ID))
 
@@ -1193,26 +1193,25 @@ Optional argument ENCODING specifies an encoding method such as base64."
 (defun mime-edit-content-end ()
   "Return the point of the end of content."
   (save-excursion
-    (let ((beg (point)))
-      (if (mime-edit-goto-tag)
-	  (progn
-	    (goto-char (match-end 0))
-	    (if (invisible-p (point))
-		(next-visible-point (point))
-	      ;; Move to the end of this text.
-	      (if (re-search-forward mime-edit-tag-regexp nil 'move)
-		  ;; Don't forget a multiline tag.
-		  (goto-char (match-beginning 0))
-		)
-	      (point)
-	      ))
-	;; Assume the message begins with text/plain.
-	(goto-char (mime-edit-content-beginning))
-	(if (re-search-forward mime-edit-tag-regexp nil 'move)
-	    ;; Don't forget a multiline tag.
-	    (goto-char (match-beginning 0)))
-	(point))
-      )))
+    (if (mime-edit-goto-tag)
+	(progn
+	  (goto-char (match-end 0))
+	  (if (invisible-p (point))
+	      (next-visible-point (point))
+	    ;; Move to the end of this text.
+	    (if (re-search-forward mime-edit-tag-regexp nil 'move)
+		;; Don't forget a multiline tag.
+		(goto-char (match-beginning 0))
+	      )
+	    (point)
+	    ))
+      ;; Assume the message begins with text/plain.
+      (goto-char (mime-edit-content-beginning))
+      (if (re-search-forward mime-edit-tag-regexp nil 'move)
+	  ;; Don't forget a multiline tag.
+	  (goto-char (match-beginning 0)))
+      (point))
+    ))
 
 (defun mime-edit-define-charset (charset)
   "Set charset of current tag to CHARSET."