From ba62dbdb5b6492c3d146d187553cab44e0bee16f Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 13 Mar 1998 13:12:44 +0000
Subject: [PATCH] Rename `mime-combine-message/partials-automatically' ->
 `mime-method-to-combine-message/partial-pieces'.

---
 emh.el |   52 +++++++++++++++++++++++++---------------------------
 1 file changed, 25 insertions(+), 27 deletions(-)

diff --git a/emh.el b/emh.el
index 67227dd..8b7fed5 100644
--- a/emh.el
+++ b/emh.el
@@ -39,7 +39,7 @@
 ;;;
 
 (defconst emh-RCS-ID
-  "$Id: emh.el,v 1.3 1998-03-13 13:05:12 morioka Exp $")
+  "$Id: emh.el,v 1.4 1998-03-13 13:12:44 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -301,32 +301,30 @@ It is registered to variable `mime-view-content-header-filter-alist'."
 ;;; @@ for mime-partial
 ;;;
 
-(eval-after-load
-    "mime-view"
-  '(progn
-     (autoload 'mime-combine-message/partials-automatically
-       "mime-partial"
-       "Internal method to combine message/partial messages automatically.")
-     (set-atype 'mime-acting-condition
-		'((type . message)(type . partial)
-		  (method . mime-combine-message/partials-automatically)
-		  (major-mode . mh-show-mode)
-		  (summary-buffer-exp
-		   . (and (or (string-match "^article-\\(.+\\)$"
-					    article-buffer)
-			      (string-match "^show-\\(.+\\)$" article-buffer))
-			  (substring article-buffer
-				     (match-beginning 1) (match-end 1))
-			  ))
-		  ))
-     (set-alist 'mime-view-partial-message-method-alist
-		'mh-show-mode
-		(function
-		 (lambda ()
-		   (let ((emh-automatic-mime-preview t))
-		     (emh-show)
-		     ))))
-     ))
+(autoload 'mime-method-to-combine-message/partial-pieces
+  "mime-partial"
+  "Internal method to combine message/partial messages automatically.")
+
+(set-atype 'mime-acting-condition
+	   '((type . message)(type . partial)
+	     (method . mime-method-to-combine-message/partial-pieces)
+	     (major-mode . mh-show-mode)
+	     (summary-buffer-exp
+	      . (and (or (string-match "^article-\\(.+\\)$"
+				       article-buffer)
+			 (string-match "^show-\\(.+\\)$" article-buffer))
+		     (substring article-buffer
+				(match-beginning 1) (match-end 1))
+		     ))
+	     ))
+
+(set-alist 'mime-view-partial-message-method-alist
+	   'mh-show-mode
+	   (function
+	    (lambda ()
+	      (let ((emh-automatic-mime-preview t))
+		(emh-show)
+		))))
 
 
 ;;; @ set up
-- 
1.7.10.4